home *** CD-ROM | disk | FTP | other *** search
MacBinary | 1990-03-31 | 130.0 KB | [ STAK/WILD]
open in: MacOS 8.1
extracted
|
Win98
extracted
|
DOS
extracted
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary ).
Confidence Program Detection Match Type Support
100%
dexvert
HyperCard Stack (archive/hypercard)
idMeta
Supported
10%
dexvert
MacBinary (archive/macBinary)
fallback
Supported
10%
dexvert
Jesper Olsen Module (music/jesperOlsen)
magic
Supported
100%
file
TTComp archive data, binary, 1K dictionary
default (weak)
99%
file
MacBinary II, inited, Tue Jan 31 11:36:21 1989, modified Sat Mar 31 15:33:03 1990, creator HyperCard, type HyperCard stack, 57088 bytes "Home" , at 0xdf80 75859 bytes resource
default (weak)
98%
file
data
default
49%
TrID
Mac HyperCard stack (MacBinary)
default
33%
TrID
TTComp archive compressed (bin-1K)
default (weak)
16%
TrID
MacBinary 2
default (weak)
0%
TrID
Sybase iAnywhere database files
default (weak)
100%
siegfried
fmt/1762 MacBinary (II)
default
100%
lsar
MacBinary
default
id metadata key value macFileType [ STAK] macFileCreator [ WILD]
hex view +--------+-------------------------+-------------------------+--------+--------+ |00000000| 00 04 48 6f 6d 65 00 00 | 00 00 00 00 00 00 00 00 |..Home..|........| |00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......| |00000050| 00 00 00 00 00 df 00 00 | 01 28 53 a0 0b 91 05 a2 |........|.(S.....| |00000060| 3a c4 7f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |:.......|........| |00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e5 51 00 00 |........|.....Q..| |00000080| 00 00 6c 00 53 54 41 4b | ff ff ff ff e6 b8 6d c0 |..l.STAK|......m.| |00000090| 00 00 00 08 00 00 df 00 | 00 00 6c 00 00 00 00 00 |........|..l.....| |000000a0| 00 00 00 00 00 00 00 02 | 00 00 10 76 00 00 00 05 |........|...v....| |000000b0| 00 00 20 4b 00 00 08 60 | 00 00 00 00 00 00 00 00 |.. K...`|........| |000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........| |000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000000e0| 01 20 80 00 01 25 80 00 | 01 25 80 00 01 25 80 00 |. ...%..|.%...%..| |000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........| |00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""| |00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.| |00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........| |00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........| |00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........| |000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.| |000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......| |000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"| |000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.| |000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U| |000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....| |00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....| |00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........| |00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...| |00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....| |00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........| |00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........| |00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........| |00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P| |00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000680| 3d 3d 3d 20 54 68 69 73 | 20 4c 69 73 74 4f 66 48 |=== This| ListOfH| |00000690| 61 6e 64 6c 65 72 73 20 | 77 61 73 20 63 6f 6d 70 |andlers |was comp| |000006a0| 69 6c 65 64 20 6f 6e 20 | 32 2f 31 30 2f 38 39 20 |iled on |2/10/89 | |000006b0| 61 74 20 31 30 3a 30 31 | 20 41 4d 20 3d 3d 3d 0d |at 10:01| AM ===.| |000006c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========| |000006d0| 3d 20 7e 32 36 36 33 36 | 20 43 48 41 52 53 20 49 |= ~26636| CHARS I| |000006e0| 4e 20 54 48 49 53 20 53 | 43 52 49 50 54 20 3d 3d |N THIS S|CRIPT ==| |000006f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.| |00000700| 3d 3d 3d 3d 3d 3d 3d 20 | 43 6f 6c 6c 65 63 74 48 |======= |CollectH| |00000710| 61 6e 64 6c 65 72 73 2c | 20 43 6f 70 79 72 69 67 |andlers,| Copyrig| |00000720| 68 74 ca a9 20 31 39 38 | 39 2c 20 62 79 20 4a 6f |ht.. 198|9, by Jo| |00000730| 65 20 52 75 73 68 20 3d | 3d 3d 3d 3d 3d 3d 3d 0d |e Rush =|=======.| |00000740| 3d 20 20 6f 6e 20 6f 70 | 65 6e 53 74 61 63 6b 0d |= on op|enStack.| |00000750| 3d 20 20 6f 6e 20 73 74 | 61 72 74 55 70 0d 3d 20 |= on st|artUp.= | |00000760| 20 6f 6e 20 72 65 73 75 | 6d 65 0d 3d 20 20 20 20 | on resu|me.= | |00000770| 6f 6e 20 49 6e 69 74 69 | 61 6c 69 7a 65 48 6f 6d |on Initi|alizeHom| |00000780| 65 0d 3d 20 20 20 20 20 | 20 6f 6e 20 67 65 74 48 |e.= | on getH| |00000790| 6f 6d 65 49 6e 66 6f 0d | 3d 20 20 20 20 20 20 6f |omeInfo.|= o| |000007a0| 6e 20 44 69 73 70 6c 61 | 79 50 72 6f 67 72 61 6d |n Displa|yProgram| |000007b0| 6d 65 72 73 4d 65 6e 75 | 0d 3d 0d 3d 20 20 6f 6e |mersMenu|.=.= on| |000007c0| 20 68 65 6c 70 0d 3d 20 | 20 6f 6e 20 73 68 6f 77 | help.= | on show| |000007d0| 0d 3d 20 20 6f 6e 20 66 | 75 6e 63 74 69 6f 6e 4b |.= on f|unctionK| |000007e0| 65 79 0d 3d 20 20 6f 6e | 20 61 72 72 6f 77 4b 65 |ey.= on| arrowKe| |000007f0| 79 0d 3d 0d 3d 20 20 6f | 6e 20 64 6f 4d 65 6e 75 |y.=.= o|n doMenu| |00000800| 0d 3d 20 20 20 6f 6e 20 | 42 6f 6c 64 69 66 79 54 |.= on |BoldifyT| |00000810| 68 65 53 65 6c 65 63 74 | 69 6f 6e 0d 3d 20 20 20 |heSelect|ion.= | |00000820| 20 20 20 66 75 6e 63 74 | 69 6f 6e 20 42 6f 6c 64 | funct|ion Bold| |00000830| 69 66 79 0d 3d 20 20 20 | 20 6f 6e 20 44 65 42 6f |ify.= | on DeBo| |00000840| 6c 64 69 66 79 54 68 65 | 53 65 6c 65 63 74 69 6f |ldifyThe|Selectio| |00000850| 6e 0d 3d 20 20 20 20 20 | 20 66 75 6e 63 74 69 6f |n.= | functio| |00000860| 6e 20 44 65 42 6f 6c 64 | 69 66 79 0d 3d 20 20 20 |n DeBold|ify.= | |00000870| 20 6f 6e 20 4c 6f 6f 6b | 46 6f 72 48 69 64 64 65 | on Look|ForHidde| |00000880| 6e 4f 62 6a 65 63 74 73 | 0d 3d 20 20 20 20 20 20 |nObjects|.= | |00000890| 6f 6e 20 4c 6f 6f 6b 46 | 6f 72 48 69 64 64 65 6e |on LookF|orHidden| |000008a0| 42 75 74 74 6f 6e 73 0d | 3d 20 20 20 20 20 20 6f |Buttons.|= o| |000008b0| 6e 20 4c 6f 6f 6b 46 6f | 72 48 69 64 64 65 6e 46 |n LookFo|rHiddenF| |000008c0| 69 65 6c 64 73 0d 3d 20 | 20 20 20 6f 6e 20 43 68 |ields.= | on Ch| |000008d0| 61 6e 67 65 43 61 73 65 | 0d 3d 20 20 20 20 20 20 |angeCase|.= | |000008e0| 6f 6e 20 43 68 61 6e 67 | 65 43 61 73 65 4f 66 54 |on Chang|eCaseOfT| |000008f0| 68 65 53 65 6c 65 63 74 | 69 6f 6e 0d 3d 20 20 20 |heSelect|ion.= | |00000900| 20 20 20 20 20 66 75 6e | 63 74 69 6f 6e 20 43 68 | fun|ction Ch| |00000910| 61 6e 67 65 54 6f 55 70 | 70 65 72 43 61 73 65 0d |angeToUp|perCase.| |00000920| 3d 20 20 20 20 20 20 20 | 20 66 75 6e 63 74 69 6f |= | functio| |00000930| 6e 20 43 68 61 6e 67 65 | 54 6f 4c 6f 77 65 72 43 |n Change|ToLowerC| |00000940| 61 73 65 0d 3d 20 20 20 | 20 6f 6e 20 53 65 61 72 |ase.= | on Sear| |00000950| 63 68 53 63 72 69 70 74 | 73 0d 3d 20 20 20 20 20 |chScript|s.= | |00000960| 20 6f 6e 20 73 65 61 72 | 63 68 53 63 72 69 70 74 | on sear|chScript| |00000970| 0d 3d 20 20 20 20 6f 6e | 20 43 6f 70 79 47 72 6f |.= on| CopyGro| |00000980| 75 70 69 65 73 46 6c 64 | 46 72 6f 6d 48 6f 6d 65 |upiesFld|FromHome| |00000990| 41 6e 64 50 61 73 74 65 | 0d 3d 20 20 20 20 6f 6e |AndPaste|.= on| |000009a0| 20 43 6f 6c 6c 65 63 74 | 48 61 6e 64 6c 65 72 73 | Collect|Handlers| |000009b0| 0d 3d 0d 3d 20 20 6f 6e | 20 69 64 6c 65 0d 3d 20 |.=.= on| idle.= | |000009c0| 20 20 20 6f 6e 20 44 6f | 31 4c 69 6e 65 4f 66 54 | on Do|1LineOfT| |000009d0| 68 65 43 6f 6d 6d 61 6e | 64 46 69 6c 65 0d 3d 20 |heComman|dFile.= | |000009e0| 20 20 20 6f 6e 20 61 6e | 73 77 65 72 0d 3d 20 20 | on an|swer.= | |000009f0| 20 20 6f 6e 20 61 73 6b | 0d 3d 20 20 20 20 66 75 | on ask|.= fu| |00000a00| 6e 63 74 69 6f 6e 20 4c | 6f 63 61 74 69 6f 6e 4f |nction L|ocationO| |00000a10| 66 54 65 72 6d 49 6e 42 | 6b 67 6e 64 46 69 65 6c |fTermInB|kgndFiel| |00000a20| 64 0d 3d 20 20 20 20 66 | 75 6e 63 74 69 6f 6e 20 |d.= f|unction | |00000a30| 4c 6f 63 61 74 69 6f 6e | 4f 66 54 65 72 6d 49 6e |Location|OfTermIn| |00000a40| 43 61 72 64 46 69 65 6c | 64 0d 3d 0d 3d 20 20 66 |CardFiel|d.=.= f| |00000a50| 75 6e 63 74 69 6f 6e 20 | 54 65 78 74 4f 66 4c 69 |unction |TextOfLi| |00000a60| 6e 65 41 74 4d 6f 75 73 | 65 4c 6f 63 61 74 69 6f |neAtMous|eLocatio| |00000a70| 6e 0d 3d 20 20 20 20 66 | 75 6e 63 74 69 6f 6e 20 |n.= f|unction | |00000a80| 54 68 65 53 63 72 6f 6c | 6c 56 61 6c 75 65 4f 66 |TheScrol|lValueOf| |00000a90| 0d 3d 20 20 66 75 6e 63 | 74 69 6f 6e 20 4b 77 6f |.= func|tion Kwo| |00000aa0| 74 65 0d 3d 0d 3d 20 20 | 6f 6e 20 53 74 6f 70 57 |te.=.= |on StopW| |00000ab0| 61 74 63 68 53 74 61 72 | 74 54 69 6d 69 6e 67 0d |atchStar|tTiming.| |00000ac0| 3d 20 20 20 20 66 75 6e | 63 74 69 6f 6e 20 53 74 |= fun|ction St| |00000ad0| 6f 70 57 61 74 63 68 45 | 6c 61 70 73 65 64 54 69 |opWatchE|lapsedTi| |00000ae0| 6d 65 0d 3d 20 20 20 20 | 66 75 6e 63 74 69 6f 6e |me.= |function| |00000af0| 20 53 74 6f 70 57 61 74 | 63 68 53 70 6c 69 74 54 | StopWat|chSplitT| |00000b00| 69 6d 65 0d 3d 0d 3d 20 | 20 6f 6e 20 63 6c 6f 73 |ime.=.= | on clos| |00000b10| 65 53 74 61 63 6b 0d 3d | 20 20 20 20 6f 6e 20 43 |eStack.=| on C| |00000b20| 6f 6e 73 69 64 65 72 43 | 6f 6d 70 61 63 74 69 6e |onsiderC|ompactin| |00000b30| 67 54 68 65 53 74 61 63 | 6b 0d 3d 20 20 6f 6e 20 |gTheStac|k.= on | |00000b40| 71 75 69 74 0d 3d 20 20 | 6f 6e 20 73 75 73 70 65 |quit.= |on suspe| |00000b50| 6e 64 0d 3d 20 20 20 20 | 6f 6e 20 44 65 6c 65 74 |nd.= |on Delet| |00000b60| 65 4d 65 6e 75 73 41 6e | 64 43 6f 6d 70 61 63 74 |eMenusAn|dCompact| |00000b70| 53 74 61 63 6b 73 0d 3d | 20 20 20 20 20 20 6f 6e |Stacks.=| on| |00000b80| 20 43 6f 6d 70 61 63 74 | 4c 69 73 74 4f 66 53 74 | Compact|ListOfSt| |00000b90| 61 63 6b 73 0d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |acks.===|========| |00000ba0| 3d 3d 3d 3d 3d 3d 3d 20 | 65 6e 64 3a 20 27 4c 69 |======= |end: 'Li| |00000bb0| 73 74 20 6f 66 20 48 61 | 6e 64 6c 65 72 73 27 20 |st of Ha|ndlers' | |00000bc0| 20 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ======|========| |00000bd0| 3d 3d 3d 3d 0d 6f 6e 20 | 6f 70 65 6e 53 74 61 63 |====.on |openStac| |00000be0| 6b 20 2d 2d 20 69 66 20 | 79 6f 75 20 73 74 61 72 |k -- if |you star| |00000bf0| 74 55 70 20 77 69 74 68 | 20 61 20 73 74 61 63 6b |tUp with| a stack| |00000c00| 20 74 68 61 74 20 64 6f | 65 73 20 6e 6f 74 20 70 | that do|es not p| |00000c10| 61 73 73 20 73 74 61 72 | 74 55 70 0d 0d 49 6e 69 |ass star|tUp..Ini| |00000c20| 74 69 61 6c 69 7a 65 48 | 6f 6d 65 0d 70 61 73 73 |tializeH|ome.pass| |00000c30| 20 6f 70 65 6e 53 74 61 | 63 6b 0d 65 6e 64 20 6f | openSta|ck.end o| |00000c40| 70 65 6e 53 74 61 63 6b | 20 20 20 20 20 20 20 20 |penStack| | |00000c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d | | -| |00000c60| 2d 2d 2d 20 43 6f 70 79 | 72 69 67 68 74 ca a9 20 |--- Copy|right.. | |00000c70| 31 39 38 39 2c 20 62 79 | 20 4a 6f 65 20 52 75 73 |1989, by| Joe Rus| |00000c80| 68 0d 2d 2d 2d 20 31 2d | 2d 2d 2d 2d 2d 2d 31 30 |h.--- 1-|------10| |00000c90| 2d 2d 2d 2d 2d 2d 2d 2d | 32 30 2d 2d 2d 2d 2d 2d |--------|20------| |00000ca0| 2d 2d 2d 33 31 20 2d 2d | 2d 2d 20 20 70 61 73 73 |---31 --|-- pass| |00000cb0| 20 3f 20 2d 2d 2d 2d 0d | 6f 6e 20 73 74 61 72 74 | ? ----.|on start| |00000cc0| 55 70 0d 0d 49 6e 69 74 | 69 61 6c 69 7a 65 48 6f |Up..Init|ializeHo| |00000cd0| 6d 65 0d 70 61 73 73 20 | 73 74 61 72 74 55 70 0d |me.pass |startUp.| |00000ce0| 65 6e 64 20 73 74 61 72 | 74 55 70 20 20 20 20 20 |end star|tUp | |00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00000d00| 20 20 20 20 2d 2d 2d 2d | 20 43 6f 70 79 72 69 67 | ----| Copyrig| |00000d10| 68 74 ca a9 20 31 39 38 | 39 2c 20 62 79 20 4a 6f |ht.. 198|9, by Jo| |00000d20| 65 20 52 75 73 68 0d 2d | 2d 2d 20 31 2d 2d 2d 2d |e Rush.-|-- 1----| |00000d30| 2d 2d 2d 31 30 2d 2d 2d | 2d 2d 2d 2d 2d 32 30 2d |---10---|-----20-| |00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 33 31 20 2d 2d 2d 2d 20 |--------|31 ---- | |00000d50| 70 61 73 73 20 3f 20 2d | 2d 2d 2d 0d 6f 6e 20 72 |pass ? -|---.on r| |00000d60| 65 73 75 6d 65 0d 0d 49 | 6e 69 74 69 61 6c 69 7a |esume..I|nitializ| |00000d70| 65 48 6f 6d 65 0d 70 61 | 73 73 20 72 65 73 75 6d |eHome.pa|ss resum| |00000d80| 65 0d 65 6e 64 20 72 65 | 73 75 6d 65 20 20 20 20 |e.end re|sume | |00000d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00000da0| 20 20 20 20 20 20 2d 2d | 2d 2d 20 43 6f 70 79 72 | --|-- Copyr| |00000db0| 69 67 68 74 ca a9 20 31 | 39 38 39 2c 20 62 79 20 |ight.. 1|989, by | |00000dc0| 4a 6f 65 20 52 75 73 68 | 0d 2d 2d 2d 20 31 2d 2d |Joe Rush|.--- 1--| |00000dd0| 2d 2d 2d 2d 2d 31 30 2d | 2d 2d 2d 2d 2d 2d 2d 32 |-----10-|-------2| |00000de0| 30 2d 2d 2d 2d 2d 2d 2d | 2d 2d 33 31 20 2d 2d 2d |0-------|--31 ---| |00000df0| 2d 20 70 61 73 73 20 3f | 20 2d 2d 2d 2d 0d 6f 6e |- pass ?| ----.on| |00000e00| 20 49 6e 69 74 69 61 6c | 69 7a 65 48 6f 6d 65 0d | Initial|izeHome.| |00000e10| 67 6c 6f 62 61 6c 20 48 | 6f 6d 65 48 61 73 42 65 |global H|omeHasBe| |00000e20| 65 6e 49 6e 69 74 69 61 | 6c 69 7a 65 64 0d 0d 69 |enInitia|lized..i| |00000e30| 66 20 20 20 20 20 48 6f | 6d 65 48 61 73 42 65 65 |f Ho|meHasBee| |00000e40| 6e 49 6e 69 74 69 61 6c | 69 7a 65 64 20 20 20 20 |nInitial|ized | |00000e50| 69 73 20 6e 6f 74 20 74 | 72 75 65 20 20 20 74 68 |is not t|rue th| |00000e60| 65 6e 0d 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |en..lock| screen.| |00000e70| 73 65 74 20 20 6c 6f 63 | 6b 4d 65 73 73 61 67 65 |set loc|kMessage| |00000e80| 73 20 20 74 6f 20 74 72 | 75 65 0d 0d 67 65 74 48 |s to tr|ue..getH| |00000e90| 6f 6d 65 49 6e 66 6f 20 | 20 20 2d 2d 20 48 79 70 |omeInfo | -- Hyp| |00000ea0| 65 72 43 61 72 64 27 73 | 20 22 67 65 74 48 6f 6d |erCard's| "getHom| |00000eb0| 65 49 6e 66 6f 22 0d 0d | 44 69 73 70 6c 61 79 50 |eInfo"..|DisplayP| |00000ec0| 72 6f 67 72 61 6d 6d 65 | 72 73 4d 65 6e 75 0d 0d |rogramme|rsMenu..| |00000ed0| 70 75 74 20 74 72 75 65 | 20 69 6e 74 6f 20 48 6f |put true| into Ho| |00000ee0| 6d 65 48 61 73 42 65 65 | 6e 49 6e 69 74 69 61 6c |meHasBee|nInitial| |00000ef0| 69 7a 65 64 0d 65 6e 64 | 20 69 66 0d 0d 65 6e 64 |ized.end| if..end| |00000f00| 20 49 6e 69 74 69 61 6c | 69 7a 65 48 6f 6d 65 20 | Initial|izeHome | |00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00000f20| 20 2d 2d 2d 2d 20 43 6f | 70 79 72 69 67 68 74 ca | ---- Co|pyright.| |00000f30| a9 20 31 39 38 39 2c 20 | 62 79 20 4a 6f 65 20 52 |. 1989, |by Joe R| |00000f40| 75 73 68 0d 2d 2d 2d 20 | 31 2d 2d 2d 2d 2d 2d 2d |ush.--- |1-------| |00000f50| 31 30 2d 2d 2d 2d 2d 2d | 2d 2d 32 30 2d 2d 2d 2d |10------|--20----| |00000f60| 2d 2d 2d 2d 2d 33 31 20 | 2d 2d 2d 2d 0d 6f 6e 20 |-----31 |----.on | |00000f70| 67 65 74 48 6f 6d 65 49 | 6e 66 6f 0d 67 6c 6f 62 |getHomeI|nfo.glob| |00000f80| 61 6c 20 73 74 61 63 6b | 73 2c 61 70 70 6c 69 63 |al stack|s,applic| |00000f90| 61 74 69 6f 6e 73 2c 64 | 6f 63 75 6d 65 6e 74 73 |ations,d|ocuments| |00000fa0| 2c 75 73 65 72 4e 61 6d | 65 0d 73 65 74 20 6c 6f |,userNam|e.set lo| |00000fb0| 63 6b 53 63 72 65 65 6e | 20 74 6f 20 74 72 75 65 |ckScreen| to true| |00000fc0| 0d 73 65 74 20 6c 6f 63 | 6b 4d 65 73 73 61 67 65 |.set loc|kMessage| |00000fd0| 73 20 74 6f 20 74 72 75 | 65 0d 70 75 73 68 20 74 |s to tru|e.push t| |00000fe0| 68 69 73 20 63 61 72 64 | 0d 67 6f 20 74 6f 20 63 |his card|.go to c| |00000ff0| 61 72 64 20 22 55 73 65 | 72 20 50 72 65 66 65 72 |ard "Use|r Prefer| |00001000| 65 6e 63 65 73 22 20 6f | 66 20 73 74 61 63 6b 20 |ences" o|f stack | |00001010| 22 48 6f 6d 65 22 0d 70 | 75 74 20 63 61 72 64 20 |"Home".p|ut card | |00001020| 66 69 65 6c 64 20 22 55 | 73 65 72 20 4e 61 6d 65 |field "U|ser Name| |00001030| 22 20 69 6e 74 6f 20 75 | 73 65 72 4e 61 6d 65 0d |" into u|serName.| |00001040| 73 65 74 20 75 73 65 72 | 4c 65 76 65 6c 20 74 6f |set user|Level to| |00001050| 20 63 61 72 64 20 66 69 | 65 6c 64 20 22 55 73 65 | card fi|eld "Use| |00001060| 72 20 4c 65 76 65 6c 22 | 0d 73 65 74 20 70 6f 77 |r Level"|.set pow| |00001070| 65 72 4b 65 79 73 20 74 | 6f 20 74 68 65 20 68 69 |erKeys t|o the hi| |00001080| 6c 69 74 65 20 6f 66 20 | 62 75 74 74 6f 6e 20 22 |lite of |button "| |00001090| 50 6f 77 65 72 20 4b 65 | 79 73 22 0d 73 65 74 20 |Power Ke|ys".set | |000010a0| 74 65 78 74 41 72 72 6f | 77 73 20 74 6f 20 74 68 |textArro|ws to th| |000010b0| 65 20 68 69 6c 69 74 65 | 20 6f 66 20 62 75 74 74 |e hilite| of butt| |000010c0| 6f 6e 20 22 54 65 78 74 | 20 41 72 72 6f 77 73 22 |on "Text| Arrows"| |000010d0| 0d 73 65 74 20 62 6c 69 | 6e 64 54 79 70 69 6e 67 |.set bli|ndTyping| |000010e0| 20 74 6f 20 74 68 65 20 | 68 69 6c 69 74 65 20 6f | to the |hilite o| |000010f0| 66 20 62 75 74 74 6f 6e | 20 22 42 6c 69 6e 64 20 |f button| "Blind | |00001100| 54 79 70 69 6e 67 22 0d | 70 75 74 20 66 69 65 6c |Typing".|put fiel| |00001110| 64 20 22 70 61 74 68 73 | 22 20 6f 66 20 63 61 72 |d "paths|" of car| |00001120| 64 20 22 73 74 61 63 6b | 73 22 20 69 6e 74 6f 20 |d "stack|s" into | |00001130| 73 74 61 63 6b 73 0d 70 | 75 74 20 66 69 65 6c 64 |stacks.p|ut field| |00001140| 20 22 70 61 74 68 73 22 | 20 6f 66 20 63 61 72 64 | "paths"| of card| |00001150| 20 22 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 22 20 | "applic|ations" | |00001160| 69 6e 74 6f 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |into app|lication| |00001170| 73 0d 70 75 74 20 66 69 | 65 6c 64 20 22 70 61 74 |s.put fi|eld "pat| |00001180| 68 73 22 20 6f 66 20 63 | 61 72 64 20 22 64 6f 63 |hs" of c|ard "doc| |00001190| 75 6d 65 6e 74 73 22 20 | 69 6e 74 6f 20 64 6f 63 |uments" |into doc| |000011a0| 75 6d 65 6e 74 73 0d 70 | 6f 70 20 63 61 72 64 0d |uments.p|op card.| |000011b0| 73 65 74 20 6c 6f 63 6b | 53 63 72 65 65 6e 20 74 |set lock|Screen t| |000011c0| 6f 20 66 61 6c 73 65 0d | 73 65 74 20 6c 6f 63 6b |o false.|set lock| |000011d0| 4d 65 73 73 61 67 65 73 | 20 74 6f 20 66 61 6c 73 |Messages| to fals| |000011e0| 65 0d 65 6e 64 20 67 65 | 74 48 6f 6d 65 49 6e 66 |e.end ge|tHomeInf| |000011f0| 6f 0d 2d 2d 2d 20 31 2d | 2d 2d 2d 2d 2d 2d 31 30 |o.--- 1-|------10| |00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 32 30 2d 2d 2d 2d 2d 2d |--------|20------| |00001210| 2d 2d 2d 33 31 20 2d 2d | 2d 2d 0d 6f 6e 20 44 69 |---31 --|--.on Di| |00001220| 73 70 6c 61 79 50 72 6f | 67 72 61 6d 6d 65 72 73 |splayPro|grammers| |00001230| 4d 65 6e 75 0d 67 6c 6f | 62 61 6c 20 50 72 6f 67 |Menu.glo|bal Prog| |00001240| 72 61 6d 6d 65 72 73 4d | 65 6e 75 0d 69 66 20 20 |rammersM|enu.if | |00001250| 50 72 6f 67 72 61 6d 6d | 65 72 73 4d 65 6e 75 20 |Programm|ersMenu | |00001260| 69 73 20 65 6d 70 74 79 | 20 20 74 68 65 6e 20 20 |is empty| then | |00001270| 70 75 74 20 6e 65 77 4d | 65 6e 75 28 22 50 72 6f |put newM|enu("Pro| |00001280| 67 72 61 6d 6d 65 72 73 | 20 4d 65 6e 75 22 20 c2 |grammers| Menu" .| |00001290| 0d 2c 20 20 20 20 20 22 | 50 68 6f 6e 65 20 42 6f |., "|Phone Bo| |000012a0| 6f 6b 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ok" | | |000012b0| 20 20 c2 0d 2c 20 20 20 | 20 20 22 43 61 6c 63 75 | .., | "Calcu| |000012c0| 6c 61 74 6f 72 22 20 20 | 20 20 20 20 20 20 20 20 |lator" | | |000012d0| 20 20 20 20 20 c2 0d 2c | 20 20 20 20 20 22 43 6f | ..,| "Co| |000012e0| 6d 6d 61 6e 64 20 46 69 | 6c 65 73 22 20 20 20 20 |mmand Fi|les" | |000012f0| 20 20 20 20 20 20 20 20 | c2 0d 2c 20 20 20 20 20 | |.., | |00001300| 22 43 6f 6d 70 61 72 65 | 20 53 74 61 63 6b 73 22 |"Compare| Stacks"| |00001310| 20 20 20 20 20 20 20 20 | 20 20 20 c2 0d 2c 22 28 | | ..,"(| |00001320| 2d 22 2c 22 43 6f 6c 6c | 65 63 74 20 48 61 6e 64 |-","Coll|ect Hand| |00001330| 6c 65 72 73 2e 2e 2e 22 | 20 20 20 20 20 20 c2 0d |lers..."| ..| |00001340| 2c 20 20 20 20 20 22 47 | 61 74 68 65 72 20 53 63 |, "G|ather Sc| |00001350| 72 69 70 74 73 2e 2e 2e | 22 20 20 20 20 20 20 20 |ripts...|" | |00001360| 20 c2 0d 2c 20 20 20 20 | 20 22 53 65 61 72 63 68 | .., | "Search| |00001370| 20 53 63 72 69 70 74 73 | 2e 2e 2e 22 20 20 20 20 | Scripts|..." | |00001380| 20 20 20 20 c2 0d 2c 20 | 20 20 20 20 22 42 6f 6c | .., | "Bol| |00001390| 64 69 66 79 20 53 65 6c | 65 63 74 69 6f 6e 22 20 |dify Sel|ection" | |000013a0| 20 20 20 20 20 20 20 c2 | 0d 2c 20 20 20 20 20 22 | .|., "| |000013b0| 43 68 61 6e 67 65 20 43 | 61 73 65 2e 2e 2e 22 20 |Change C|ase..." | |000013c0| 20 20 20 20 20 20 20 20 | 20 20 c2 0d 2c 20 20 20 | | .., | |000013d0| 20 20 22 4c 6f 6f 6b 20 | 66 6f 72 20 48 69 64 64 | "Look |for Hidd| |000013e0| 65 6e 20 4f 62 6a 65 63 | 74 73 22 20 20 c2 0d 2c |en Objec|ts" ..,| |000013f0| 20 20 20 20 20 22 47 65 | 74 20 61 20 43 6f 70 79 | "Ge|t a Copy| |00001400| 20 6f 66 20 47 72 6f 75 | 70 69 65 73 22 20 20 20 | of Grou|pies" | |00001410| c2 0d 2c 20 20 20 20 20 | 22 72 65 73 43 6f 70 79 |.., |"resCopy| |00001420| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | | |00001430| 20 20 20 c2 0d 2c 22 28 | 2d 22 2c 22 53 68 75 74 | ..,"(|-","Shut| |00001440| 44 6f 77 6e 22 20 20 20 | 20 20 20 20 20 20 20 20 |Down" | | |00001450| 20 20 20 20 20 20 20 20 | 29 20 20 20 69 6e 74 6f | |) into| |00001460| 20 20 50 72 6f 67 72 61 | 6d 6d 65 72 73 4d 65 6e | Progra|mmersMen| |00001470| 75 0d 65 6e 64 20 44 69 | 73 70 6c 61 79 50 72 6f |u.end Di|splayPro| |00001480| 67 72 61 6d 6d 65 72 73 | 4d 65 6e 75 20 20 20 20 |grammers|Menu | |00001490| 20 20 20 20 20 20 2d 2d | 2d 2d 20 43 6f 70 79 72 | --|-- Copyr| |000014a0| 69 67 68 74 ca a9 20 31 | 39 38 39 2c 20 62 79 20 |ight.. 1|989, by | |000014b0| 4a 6f 65 20 52 75 73 68 | 0d 2d 2d 2d 20 31 2d 2d |Joe Rush|.--- 1--| |000014c0| 2d 2d 2d 2d 2d 31 30 2d | 2d 2d 2d 2d 2d 2d 2d 32 |-----10-|-------2| |000014d0| 30 2d 2d 2d 2d 2d 2d 2d | 2d 2d 33 31 20 2d 2d 2d |0-------|--31 ---| |000014e0| 2d 0d 6f 6e 20 68 65 6c | 70 0d 0d 69 66 20 74 68 |-.on hel|p..if th| |000014f0| 65 20 6f 70 74 69 6f 6e | 4b 65 79 20 69 73 20 75 |e option|Key is u| |00001500| 70 0d 74 68 65 6e 20 67 | 6f 20 74 6f 20 73 74 61 |p.then g|o to sta| |00001510| 63 6b 20 22 48 65 6c 70 | 22 0d 65 6c 73 65 20 67 |ck "Help|".else g| |00001520| 6f 20 74 6f 20 73 74 61 | 63 6b 20 22 52 75 73 68 |o to sta|ck "Rush| |00001530| 20 53 74 61 63 6b 73 20 | 48 65 6c 70 2f 49 6e 66 | Stacks |Help/Inf| |00001540| 6f 22 0d 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |o".if th|e result| |00001550| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 74 68 | is not |empty th| |00001560| 65 6e 20 67 6f 20 74 6f | 20 73 74 61 63 6b 20 22 |en go to| stack "| |00001570| 48 65 6c 70 22 0d 0d 65 | 6e 64 20 68 65 6c 70 20 |Help"..e|nd help | |00001580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00001590| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 20 | | ---- | |000015a0| 43 6f 70 79 72 69 67 68 | 74 ca a9 20 31 39 38 39 |Copyrigh|t.. 1989| |000015b0| 2c 20 62 79 20 4a 6f 65 | 20 52 75 73 68 0d 2d 2d |, by Joe| Rush.--| |000015c0| 2d 20 31 2d 2d 2d 2d 2d | 2d 2d 31 30 2d 2d 2d 2d |- 1-----|--10----| |000015d0| 2d 2d 2d 2d 32 30 2d 2d | 2d 2d 2d 2d 2d 2d 2d 33 |----20--|-------3| |000015e0| 31 20 2d 2d 2d 2d 20 20 | 70 61 73 73 20 3f 20 2d |1 ---- |pass ? -| |000015f0| 2d 2d 2d 0d 6f 6e 20 73 | 68 6f 77 20 49 74 65 6d |---.on s|how Item| |00001600| 54 6f 42 65 53 68 6f 77 | 6e 0d 67 6c 6f 62 61 6c |ToBeShow|n.global| |00001610| 20 50 72 6f 67 72 61 6d | 6d 65 72 73 4d 65 6e 75 | Program|mersMenu| |00001620| 0d 0d 69 66 20 49 74 65 | 6d 54 6f 42 65 53 68 6f |..if Ite|mToBeSho| |00001630| 77 6e 20 69 73 20 22 6d | 65 6e 75 42 61 72 22 20 |wn is "m|enuBar" | |00001640| 61 6e 64 20 50 72 6f 67 | 72 61 6d 6d 65 72 73 4d |and Prog|rammersM| |00001650| 65 6e 75 20 69 73 20 6e | 6f 74 20 65 6d 70 74 79 |enu is n|ot empty| |00001660| 0d 74 68 65 6e 20 53 68 | 6f 77 4d 65 6e 75 28 50 |.then Sh|owMenu(P| |00001670| 72 6f 67 72 61 6d 6d 65 | 72 73 4d 65 6e 75 29 20 |rogramme|rsMenu) | |00001680| 20 20 20 2d 2d 2d 20 4e | 45 45 44 45 44 20 54 4f | --- N|EEDED TO| |00001690| 20 44 49 53 50 4c 41 59 | 20 58 43 6d 64 20 4d 45 | DISPLAY| XCmd ME| |000016a0| 4e 55 73 20 2d 2d 2d 0d | 0d 70 61 73 73 20 73 68 |NUs ---.|.pass sh| |000016b0| 6f 77 0d 65 6e 64 20 73 | 68 6f 77 20 20 20 20 20 |ow.end s|how | |000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |000016d0| 20 20 20 20 20 20 20 2d | 2d 2d 2d 20 43 6f 70 79 | -|--- Copy| |000016e0| 72 69 67 68 74 ca a9 20 | 31 39 38 39 2c 20 62 79 |right.. |1989, by| |000016f0| 20 4a 6f 65 20 52 75 73 | 68 0d 2d 2d 2d 20 31 2d | Joe Rus|h.--- 1-| |00001700| 2d 2d 2d 2d 2d 2d 31 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------10|--------| |00001710| 32 30 2d 2d 2d 2d 2d 2d | 2d 2d 2d 33 31 20 2d 2d |20------|---31 --| |00001720| 2d 2d 20 70 61 73 73 20 | 3f 20 2d 2d 2d 2d 0d 6f |-- pass |? ----.o| |00001730| 6e 20 66 75 6e 63 74 69 | 6f 6e 4b 65 79 20 66 75 |n functi|onKey fu| |00001740| 6e 63 74 69 6f 6e 4b 65 | 79 4e 75 6d 62 65 72 0d |nctionKe|yNumber.| |00001750| 0d 0d 69 66 20 20 20 20 | 20 20 66 75 6e 63 74 69 |..if | functi| |00001760| 6f 6e 4b 65 79 4e 75 6d | 62 65 72 20 69 73 20 31 |onKeyNum|ber is 1| |00001770| 35 20 74 68 65 6e 0d 64 | 6f 4d 65 6e 75 20 20 20 |5 then.d|oMenu | |00001780| 53 74 61 63 6b 20 49 6e | 66 6f 2e 2e 2e 0d 65 6c |Stack In|fo....el| |00001790| 73 65 20 69 66 20 66 75 | 6e 63 74 69 6f 6e 4b 65 |se if fu|nctionKe| |000017a0| 79 4e 75 6d 62 65 72 20 | 69 73 20 31 34 20 74 68 |yNumber |is 14 th| |000017b0| 65 6e 0d 64 6f 4d 65 6e | 75 20 20 20 42 6b 67 6e |en.doMen|u Bkgn| |000017c0| 64 20 49 6e 66 6f 2e 2e | 2e 0d 65 6c 73 65 20 69 |d Info..|..else i| |000017d0| 66 20 66 75 6e 63 74 69 | 6f 6e 4b 65 79 4e 75 6d |f functi|onKeyNum| |000017e0| 62 65 72 20 69 73 20 31 | 33 20 74 68 65 6e 0d 64 |ber is 1|3 then.d| |000017f0| 6f 4d 65 6e 75 20 20 20 | 43 61 72 64 20 49 6e 66 |oMenu |Card Inf| |00001800| 6f 2e 2e 2e 0d 0d 65 6c | 73 65 20 69 66 20 66 75 |o.....el|se if fu| |00001810| 6e 63 74 69 6f 6e 4b 65 | 79 4e 75 6d 62 65 72 20 |nctionKe|yNumber | |00001820| 69 73 20 31 32 20 74 68 | 65 6e 0d 64 6f 4d 65 6e |is 12 th|en.doMen| |00001830| 75 20 20 20 46 69 65 6c | 64 20 49 6e 66 6f 2e 2e |u Fiel|d Info..| |00001840| 2e 0d 65 6c 73 65 20 69 | 66 20 66 75 6e 63 74 69 |..else i|f functi| |00001850| 6f 6e 4b 65 79 4e 75 6d | 62 65 72 20 69 73 20 31 |onKeyNum|ber is 1| |00001860| 31 20 74 68 65 6e 0d 64 | 6f 4d 65 6e 75 20 20 20 |1 then.d|oMenu | |00001870| 42 75 74 74 6f 6e 20 49 | 6e 66 6f 2e 2e 2e 0d 65 |Button I|nfo....e| |00001880| 6c 73 65 20 69 66 20 66 | 75 6e 63 74 69 6f 6e 4b |lse if f|unctionK| |00001890| 65 79 4e 75 6d 62 65 72 | 20 69 73 20 31 30 20 74 |eyNumber| is 10 t| |000018a0| 68 65 6e 0d 63 68 6f 6f | 73 65 20 20 20 66 69 65 |hen.choo|se fie| |000018b0| 6c 64 20 74 6f 6f 6c 0d | 64 6f 4d 65 6e 75 20 20 |ld tool.|doMenu | |000018c0| 20 4e 65 77 20 46 69 65 | 6c 64 0d 64 6f 4d 65 6e | New Fie|ld.doMen| |000018d0| 75 20 20 20 46 69 65 6c | 64 20 49 6e 66 6f 2e 2e |u Fiel|d Info..| |000018e0| 2e 0d 65 6c 73 65 20 69 | 66 20 66 75 6e 63 74 69 |..else i|f functi| |000018f0| 6f 6e 4b 65 79 4e 75 6d | 62 65 72 20 69 73 20 20 |onKeyNum|ber is | |00001900| 39 20 74 68 65 6e 0d 63 | 68 6f 6f 73 65 20 20 20 |9 then.c|hoose | |00001910| 62 75 74 74 6f 6e 20 74 | 6f 6f 6c 0d 64 6f 4d 65 |button t|ool.doMe| |00001920| 6e 75 20 20 20 4e 65 77 | 20 42 75 74 74 6f 6e 0d |nu New| Button.| |00001930| 64 6f 4d 65 6e 75 20 20 | 20 42 75 74 74 6f 6e 20 |doMenu | Button | |00001940| 49 6e 66 6f 2e 2e 2e 0d | 0d 65 6c 73 65 20 69 66 |Info....|.else if| |00001950| 20 66 75 6e 63 74 69 6f | 6e 4b 65 79 4e 75 6d 62 | functio|nKeyNumb| |00001960| 65 72 20 69 73 20 20 38 | 20 74 68 65 6e 0d 70 75 |er is 8| then.pu| |00001970| 74 20 20 20 22 50 61 73 | 74 69 6e 67 20 43 61 72 |t "Pas|ting Car| |00001980| 64 2e 2e 2e 22 0d 64 6f | 4d 65 6e 75 20 50 61 73 |d...".do|Menu Pas| |00001990| 74 65 20 43 61 72 64 0d | 68 69 64 65 20 6d 65 73 |te Card.|hide mes| |000019a0| 73 61 67 65 20 62 6f 78 | 0d 65 6c 73 65 20 69 66 |sage box|.else if| |000019b0| 20 66 75 6e 63 74 69 6f | 6e 4b 65 79 4e 75 6d 62 | functio|nKeyNumb| |000019c0| 65 72 20 69 73 20 20 37 | 20 74 68 65 6e 0d 70 75 |er is 7| then.pu| |000019d0| 74 20 20 20 22 43 6f 70 | 79 69 6e 67 20 43 61 72 |t "Cop|ying Car| |000019e0| 64 2e 2e 2e 22 0d 64 6f | 4d 65 6e 75 20 43 6f 70 |d...".do|Menu Cop| |000019f0| 79 20 43 61 72 64 0d 68 | 69 64 65 20 6d 65 73 73 |y Card.h|ide mess| |00001a00| 61 67 65 20 62 6f 78 0d | 65 6c 73 65 20 69 66 20 |age box.|else if | |00001a10| 66 75 6e 63 74 69 6f 6e | 4b 65 79 4e 75 6d 62 65 |function|KeyNumbe| |00001a20| 72 20 69 73 20 20 36 20 | 74 68 65 6e 0d 41 6e 73 |r is 6 |then.Ans| |00001a30| 77 65 72 20 22 43 75 74 | 20 74 68 69 73 20 43 61 |wer "Cut| this Ca| |00001a40| 72 64 20 3f 22 20 77 69 | 74 68 20 59 65 73 20 6f |rd ?" wi|th Yes o| |00001a50| 72 20 4e 6f 0d 69 66 20 | 69 74 20 69 73 20 22 59 |r No.if |it is "Y| |00001a60| 65 73 22 20 74 68 65 6e | 0d 64 6f 4d 65 6e 75 20 |es" then|.doMenu | |00001a70| 43 75 74 20 43 61 72 64 | 0d 65 6e 64 20 69 66 0d |Cut Card|.end if.| |00001a80| 65 6c 73 65 20 69 66 20 | 66 75 6e 63 74 69 6f 6e |else if |function| |00001a90| 4b 65 79 4e 75 6d 62 65 | 72 20 69 73 20 20 35 20 |KeyNumbe|r is 5 | |00001aa0| 74 68 65 6e 0d 41 6e 73 | 77 65 72 20 22 44 65 6c |then.Ans|wer "Del| |00001ab0| 65 74 65 20 74 68 69 73 | 20 43 61 72 64 20 3f 22 |ete this| Card ?"| |00001ac0| 20 77 69 74 68 20 59 65 | 73 20 6f 72 20 4e 6f 0d | with Ye|s or No.| |00001ad0| 69 66 20 69 74 20 69 73 | 20 22 59 65 73 22 20 74 |if it is| "Yes" t| |00001ae0| 68 65 6e 20 64 6f 4d 65 | 6e 75 20 44 65 6c 65 74 |hen doMe|nu Delet| |00001af0| 65 20 43 61 72 64 0d 0d | 65 6e 64 20 69 66 0d 0d |e Card..|end if..| |00001b00| 70 61 73 73 20 66 75 6e | 63 74 69 6f 6e 4b 65 79 |pass fun|ctionKey| |00001b10| 0d 65 6e 64 20 66 75 6e | 63 74 69 6f 6e 4b 65 79 |.end fun|ctionKey| |00001b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00001b30| 20 20 20 20 20 2d 2d 2d | 2d 20 43 6f 70 79 72 69 | ---|- Copyri| |00001b40| 67 68 74 ca a9 20 31 39 | 38 39 2c 20 62 79 20 4a |ght.. 19|89, by J| |00001b50| 6f 65 20 52 75 73 68 0d | 2d 2d 2d 20 31 2d 2d 2d |oe Rush.|--- 1---| |00001b60| 2d 2d 2d 2d 31 30 2d 2d | 2d 2d 2d 2d 2d 2d 32 30 |----10--|------20| |00001b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 33 31 20 2d 2d 2d 2d |--------|-31 ----| |00001b80| 20 70 61 73 73 20 3f 20 | 2d 2d 2d 2d 0d 6f 6e 20 | pass ? |----.on | |00001b90| 61 72 72 6f 77 4b 65 79 | 0d 67 6c 6f 62 61 6c 20 |arrowKey|.global | |00001ba0| 74 65 78 74 41 72 72 6f | 77 73 0d 0d 73 65 74 20 |textArro|ws..set | |00001bb0| 74 65 78 74 41 72 72 6f | 77 73 20 74 6f 20 6e 6f |textArro|ws to no| |00001bc0| 74 20 28 74 68 65 20 73 | 65 6c 65 63 74 65 64 46 |t (the s|electedF| |00001bd0| 69 65 6c 64 20 69 73 20 | 65 6d 70 74 79 29 0d 0d |ield is |empty)..| |00001be0| 70 61 73 73 20 61 72 72 | 6f 77 4b 65 79 0d 0d 65 |pass arr|owKey..e| |00001bf0| 6e 64 20 61 72 72 6f 77 | 4b 65 79 20 20 20 20 20 |nd arrow|Key | |00001c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00001c10| 20 20 20 2d 2d 2d 2d 20 | 43 6f 70 79 72 69 67 68 | ---- |Copyrigh| |00001c20| 74 ca a9 20 31 39 38 39 | 2c 20 62 79 20 4a 6f 65 |t.. 1989|, by Joe| |00001c30| 20 52 75 73 68 0d 2d 2d | 2d 20 31 2d 2d 2d 2d 2d | Rush.--|- 1-----| |00001c40| 2d 2d 31 30 2d 2d 2d 2d | 2d 2d 2d 2d 32 30 2d 2d |--10----|----20--| |00001c50| 2d 2d 2d 2d 2d 2d 2d 33 | 31 20 2d 2d 2d 2d 20 70 |-------3|1 ---- p| |00001c60| 61 73 73 20 3f 20 2d 2d | 2d 2d 0d 6f 6e 20 64 6f |ass ? --|--.on do| |00001c70| 4d 65 6e 75 20 4d 65 6e | 75 53 65 6c 65 63 74 69 |Menu Men|uSelecti| |00001c80| 6f 6e 20 20 2d 2d 20 67 | 65 74 20 6f 75 72 20 6d |on -- g|et our m| |00001c90| 65 6e 75 20 69 74 65 6d | 73 20 66 72 6f 6d 20 64 |enu item|s from d| |00001ca0| 6f 4d 65 6e 75 20 62 65 | 66 6f 72 65 20 48 79 70 |oMenu be|fore Hyp| |00001cb0| 65 72 43 61 72 64 20 64 | 6f 65 73 2e 2e 2e 0d 0d |erCard d|oes.....| |00001cc0| 69 66 20 20 20 20 20 20 | 20 4d 65 6e 75 53 65 6c |if | MenuSel| |00001cd0| 65 63 74 69 6f 6e 20 20 | 69 73 20 20 22 50 68 6f |ection |is "Pho| |00001ce0| 6e 65 20 42 6f 6f 6b 22 | 20 20 20 20 20 20 20 20 |ne Book"| | |00001cf0| 20 20 20 20 20 20 74 68 | 65 6e 0d 67 6f 20 74 6f | th|en.go to| |00001d00| 20 73 74 61 63 6b 20 22 | 50 68 6f 6e 65 20 42 6f | stack "|Phone Bo| |00001d10| 6f 6b 22 0d 0d 65 6c 73 | 65 20 69 66 20 20 4d 65 |ok"..els|e if Me| |00001d20| 6e 75 53 65 6c 65 63 74 | 69 6f 6e 20 20 69 73 20 |nuSelect|ion is | |00001d30| 20 22 43 61 6c 63 75 6c | 61 74 6f 72 22 20 20 20 | "Calcul|ator" | |00001d40| 20 20 20 20 20 20 20 20 | 20 20 20 74 68 65 6e 0d | | then.| |00001d50| 67 6f 20 74 6f 20 73 74 | 61 63 6b 20 22 43 61 6c |go to st|ack "Cal| |00001d60| 63 75 6c 61 74 6f 72 22 | 0d 0d 65 6c 73 65 20 69 |culator"|..else i| |00001d70| 66 20 20 4d 65 6e 75 53 | 65 6c 65 63 74 69 6f 6e |f MenuS|election| |00001d80| 20 20 69 73 20 20 22 43 | 6f 6d 6d 61 6e 64 20 46 | is "C|ommand F| |00001d90| 69 6c 65 73 22 20 20 20 | 20 20 20 20 20 20 20 20 |iles" | | |00001da0| 74 68 65 6e 0d 67 6f 20 | 74 6f 20 63 61 72 64 20 |then.go |to card | |00001db0| 22 43 6f 6d 6d 61 6e 64 | 20 46 69 6c 65 22 20 6f |"Command| File" o| |00001dc0| 66 20 73 74 61 63 6b 20 | 22 43 6f 6d 6d 61 6e 64 |f stack |"Command| |00001dd0| 20 46 69 6c 65 73 22 0d | 0d 65 6c 73 65 20 69 66 | Files".|.else if| |00001de0| 20 20 4d 65 6e 75 53 65 | 6c 65 63 74 69 6f 6e 20 | MenuSe|lection | |00001df0| 20 69 73 20 20 22 43 6f | 6d 70 61 72 65 20 53 74 | is "Co|mpare St| |00001e00| 61 63 6b 73 22 20 20 20 | 20 20 20 20 20 20 20 74 |acks" | t| |00001e10| 68 65 6e 0d 67 6f 20 74 | 6f 20 73 74 61 63 6b 20 |hen.go t|o stack | |00001e20| 22 43 6f 6d 70 61 72 65 | 20 53 74 61 63 6b 73 22 |"Compare| Stacks"| |00001e30| 0d 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------| |00001e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001e60| 2d 2d 2d 2d 2d 2d 0d 65 | 6c 73 65 20 69 66 20 20 |------.e|lse if | |00001e70| 4d 65 6e 75 53 65 6c 65 | 63 74 69 6f 6e 20 20 69 |MenuSele|ction i| |00001e80| 73 20 20 22 43 6f 6c 6c | 65 63 74 20 48 61 6e 64 |s "Coll|ect Hand| |00001e90| 6c 65 72 73 2e 2e 2e 22 | 20 20 20 20 20 74 68 65 |lers..."| the| |00001ea0| 6e 0d 73 65 6e 64 20 22 | 54 72 79 54 6f 43 6f 6c |n.send "|TryToCol| |00001eb0| 6c 65 63 74 48 61 6e 64 | 6c 65 72 73 22 20 74 6f |lectHand|lers" to| |00001ec0| 20 73 74 61 63 6b 20 22 | 43 6f 6c 6c 65 63 74 20 | stack "|Collect | |00001ed0| 48 61 6e 64 6c 65 72 73 | 22 0d 0d 65 6c 73 65 20 |Handlers|"..else | |00001ee0| 69 66 20 20 4d 65 6e 75 | 53 65 6c 65 63 74 69 6f |if Menu|Selectio| |00001ef0| 6e 20 20 69 73 20 20 22 | 47 61 74 68 65 72 20 53 |n is "|Gather S| |00001f00| 63 72 69 70 74 73 2e 2e | 2e 22 20 20 20 20 20 20 |cripts..|." | |00001f10| 20 74 68 65 6e 0d 73 65 | 6e 64 20 22 47 61 74 68 | then.se|nd "Gath| |00001f20| 65 72 53 63 72 69 70 74 | 73 22 20 74 6f 20 73 74 |erScript|s" to st| |00001f30| 61 63 6b 20 22 47 61 74 | 68 65 72 20 53 63 72 69 |ack "Gat|her Scri| |00001f40| 70 74 73 22 0d 0d 65 6c | 73 65 20 69 66 20 20 4d |pts"..el|se if M| |00001f50| 65 6e 75 53 65 6c 65 63 | 74 69 6f 6e 20 20 69 73 |enuSelec|tion is| |00001f60| 20 20 22 53 65 61 72 63 | 68 20 53 63 72 69 70 74 | "Searc|h Script| |00001f70| 73 2e 2e 2e 22 20 20 20 | 20 20 20 20 74 68 65 6e |s..." | then| |00001f80| 0d 53 65 61 72 63 68 53 | 63 72 69 70 74 73 0d 0d |.SearchS|cripts..| |00001f90| 65 6c 73 65 20 69 66 20 | 20 4d 65 6e 75 53 65 6c |else if | MenuSel| |00001fa0| 65 63 74 69 6f 6e 20 20 | 69 73 20 20 22 42 6f 6c |ection |is "Bol| |00001fb0| 64 69 66 79 20 53 65 6c | 65 63 74 69 6f 6e 22 20 |dify Sel|ection" | |00001fc0| 20 20 20 20 20 20 74 68 | 65 6e 0d 69 66 20 74 68 | th|en.if th| |00001fd0| 65 20 6f 70 74 69 6f 6e | 4b 65 79 20 69 73 20 75 |e option|Key is u| |00001fe0| 70 20 74 68 65 6e 20 42 | 6f 6c 64 69 66 79 54 68 |p then B|oldifyTh| |00001ff0| 65 53 65 6c 65 63 74 69 | 6f 6e 0d 65 6c 73 65 20 |eSelecti|on.else | |00002000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00002010| 20 20 20 20 20 44 65 42 | 6f 6c 64 69 66 79 54 68 | DeB|oldifyTh| |00002020| 65 53 65 6c 65 63 74 69 | 6f 6e 0d 0d 65 6c 73 65 |eSelecti|on..else| |00002030| 20 69 66 20 20 4d 65 6e | 75 53 65 6c 65 63 74 69 | if Men|uSelecti| |00002040| 6f 6e 20 20 69 73 20 20 | 22 43 68 61 6e 67 65 20 |on is |"Change | |00002050| 43 61 73 65 2e 2e 2e 22 | 20 20 20 20 20 20 20 20 |Case..."| | |00002060| 20 20 74 68 65 6e 0d 43 | 68 61 6e 67 65 43 61 73 | then.C|hangeCas| |00002070| 65 0d 0d 65 6c 73 65 20 | 69 66 20 20 4d 65 6e 75 |e..else |if Menu| |00002080| 53 65 6c 65 63 74 69 6f | 6e 20 20 69 73 20 20 22 |Selectio|n is "| |00002090| 4c 6f 6f 6b 20 66 6f 72 | 20 48 69 64 64 65 6e 20 |Look for| Hidden | |000020a0| 4f 62 6a 65 63 74 73 22 | 20 74 68 65 6e 0d 4c 6f |Objects"| then.Lo| |000020b0| 6f 6b 46 6f 72 48 69 64 | 64 65 6e 4f 62 6a 65 63 |okForHid|denObjec| |000020c0| 74 73 0d 0d 65 6c 73 65 | 20 69 66 20 20 4d 65 6e |ts..else| if Men| |000020d0| 75 53 65 6c 65 63 74 69 | 6f 6e 20 20 69 73 20 20 |uSelecti|on is | |000020e0| 22 47 65 74 20 61 20 43 | 6f 70 79 20 6f 66 20 47 |"Get a C|opy of G| |000020f0| 72 6f 75 70 69 65 73 22 | 20 20 74 68 65 6e 0d 43 |roupies"| then.C| |00002100| 6f 70 79 47 72 6f 75 70 | 69 65 73 46 6c 64 46 72 |opyGroup|iesFldFr| |00002110| 6f 6d 48 6f 6d 65 41 6e | 64 50 61 73 74 65 0d 0d |omHomeAn|dPaste..| |00002120| 65 6c 73 65 20 69 66 20 | 20 4d 65 6e 75 53 65 6c |else if | MenuSel| |00002130| 65 63 74 69 6f 6e 20 20 | 69 73 20 20 22 72 65 73 |ection |is "res| |00002140| 43 6f 70 79 22 20 20 20 | 20 20 20 20 20 20 20 20 |Copy" | | |00002150| 20 20 20 20 20 20 74 68 | 65 6e 0d 72 65 73 43 6f | th|en.resCo| |00002160| 70 79 0d 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |py..----|--------| |00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 65 6c 73 65 20 69 66 |--------|.else if| |000021a0| 20 20 4d 65 6e 75 53 65 | 6c 65 63 74 69 6f 6e 20 | MenuSe|lection | |000021b0| 20 69 73 20 20 22 53 68 | 75 74 44 6f 77 6e 22 20 | is "Sh|utDown" | |000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 74 | | t| |000021d0| 68 65 6e 0d 73 65 6e 64 | 20 22 63 6c 6f 73 65 53 |hen.send| "closeS| |000021e0| 74 61 63 6b 22 20 74 6f | 20 74 68 69 73 20 63 61 |tack" to| this ca| |000021f0| 72 64 0d 43 6f 6d 70 61 | 63 74 4c 69 73 74 4f 66 |rd.Compa|ctListOf| |00002200| 53 74 61 63 6b 73 0d 73 | 68 75 74 44 6f 77 6e 0d |Stacks.s|hutDown.| |00002210| 0d 65 6c 73 65 20 69 66 | 20 20 4d 65 6e 75 53 65 |.else if| MenuSe| |00002220| 6c 65 63 74 69 6f 6e 20 | 20 69 73 20 20 22 46 69 |lection | is "Fi| |00002230| 6e 64 2e 2e 2e 22 20 20 | 20 20 20 20 20 20 20 20 |nd..." | | |00002240| 20 20 20 20 20 20 20 74 | 68 65 6e 0d 73 65 6e 64 | t|hen.send| |00002250| 20 22 64 6f 4d 65 6e 75 | 20 46 69 6e 64 2e 2e 2e | "doMenu| Find...| |00002260| 22 20 74 6f 20 68 79 70 | 65 72 43 61 72 64 0d 70 |" to hyp|erCard.p| |00002270| 75 74 20 22 20 73 74 72 | 69 6e 67 22 20 61 66 74 |ut " str|ing" aft| |00002280| 65 72 20 77 6f 72 64 20 | 31 20 6f 66 20 6d 65 73 |er word |1 of mes| |00002290| 73 61 67 65 20 62 6f 78 | 0d 73 65 6c 65 63 74 20 |sage box|.select | |000022a0| 63 68 61 72 20 31 34 20 | 74 6f 20 28 6e 75 6d 62 |char 14 |to (numb| |000022b0| 65 72 20 6f 66 20 63 68 | 61 72 73 20 69 6e 20 6d |er of ch|ars in m| |000022c0| 65 73 73 61 67 65 20 62 | 6f 78 2d 31 29 20 6f 66 |essage b|ox-1) of| |000022d0| 20 6d 65 73 73 61 67 65 | 20 62 6f 78 0d 0d 65 6c | message| box..el| |000022e0| 73 65 20 70 61 73 73 20 | 64 6f 4d 65 6e 75 0d 65 |se pass |doMenu.e| |000022f0| 6e 64 20 64 6f 4d 65 6e | 75 20 20 20 20 20 20 20 |nd doMen|u | |00002300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00002310| 20 20 20 2d 2d 2d 2d 20 | 43 6f 70 79 72 69 67 68 | ---- |Copyrigh| |00002320| 74 ca a9 20 31 39 38 39 | 2c 20 62 79 20 4a 6f 65 |t.. 1989|, by Joe| |00002330| 20 52 75 73 68 0d 2d 2d | 2d 20 31 2d 2d 2d 2d 2d | Rush.--|- 1-----| |00002340| 2d 2d 31 30 2d 2d 2d 2d | 2d 2d 2d 2d 32 30 2d 2d |--10----|----20--| |00002350| 2d 2d 2d 2d 2d 2d 2d 33 | 31 20 2d 2d 2d 2d 20 70 |-------3|1 ---- p| |00002360| 61 73 73 20 3f 20 2d 2d | 2d 2d 0d 6f 6e 20 42 6f |ass ? --|--.on Bo| |00002370| 6c 64 69 66 79 54 68 65 | 53 65 6c 65 63 74 69 6f |ldifyThe|Selectio| |00002380| 6e 0d 0d 69 66 20 77 6f | 72 64 20 31 20 6f 66 20 |n..if wo|rd 1 of | |00002390| 74 68 65 20 73 65 6c 65 | 63 74 69 6f 6e 20 69 73 |the sele|ction is| |000023a0| 20 65 6d 70 74 79 0d 74 | 68 65 6e 20 61 6e 73 77 | empty.t|hen answ| |000023b0| 65 72 20 22 59 6f 75 20 | 6d 75 73 74 20 73 65 6c |er "You |must sel| |000023c0| 65 63 74 20 73 6f 6d 65 | 74 68 69 6e 67 20 66 69 |ect some|thing fi| |000023d0| 72 73 74 2e 22 0d 65 6c | 73 65 20 70 75 74 20 42 |rst.".el|se put B| |000023e0| 6f 6c 64 69 66 79 28 74 | 68 65 20 73 65 6c 65 63 |oldify(t|he selec| |000023f0| 74 69 6f 6e 29 20 69 6e | 74 6f 20 74 68 65 20 73 |tion) in|to the s| |00002400| 65 6c 65 63 74 69 6f 6e | 0d 65 6e 64 20 42 6f 6c |election|.end Bol| |00002410| 64 69 66 79 54 68 65 53 | 65 6c 65 63 74 69 6f 6e |difyTheS|election| |00002420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d | | ---| |00002430| 2d 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 31 39 |- Copyri|ght.. 19| |00002440| 38 39 2c 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |89, by J|oe Rush.| |00002450| 2d 2d 2d 20 31 2d 2d 2d | 2d 2d 2d 2d 31 30 2d 2d |--- 1---|----10--| |00002460| 2d 2d 2d 2d 2d 2d 32 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------20|--------| |00002470| 2d 33 31 20 2d 2d 2d 2d | 0d 66 75 6e 63 74 69 6f |-31 ----|.functio| |00002480| 6e 20 42 6f 6c 64 69 66 | 79 20 54 65 78 74 53 74 |n Boldif|y TextSt| |00002490| 72 69 6e 67 0d 72 65 70 | 65 61 74 20 77 69 74 68 |ring.rep|eat with| |000024a0| 20 43 68 61 72 4e 75 6d | 62 65 72 20 3d 20 31 20 | CharNum|ber = 1 | |000024b0| 74 6f 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |to the n|umber of| |000024c0| 20 63 68 61 72 73 20 69 | 6e 20 54 65 78 74 53 74 | chars i|n TextSt| |000024d0| 72 69 6e 67 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |ring.set| cursor | |000024e0| 74 6f 20 62 75 73 79 0d | 69 66 20 20 63 68 61 72 |to busy.|if char| |000024f0| 54 6f 4e 75 6d 28 63 68 | 61 72 20 43 68 61 72 4e |ToNum(ch|ar CharN| |00002500| 75 6d 62 65 72 20 6f 66 | 20 54 65 78 74 53 74 72 |umber of| TextStr| |00002510| 69 6e 67 29 20 3e 20 33 | 32 20 c2 0d 61 6e 64 20 |ing) > 3|2 ..and | |00002520| 63 68 61 72 54 6f 4e 75 | 6d 28 63 68 61 72 20 43 |charToNu|m(char C| |00002530| 68 61 72 4e 75 6d 62 65 | 72 20 6f 66 20 54 65 78 |harNumbe|r of Tex| |00002540| 74 53 74 72 69 6e 67 29 | 20 3c 20 31 32 38 20 20 |tString)| < 128 | |00002550| 20 20 74 68 65 6e 20 c2 | 0d 70 75 74 20 6e 75 6d | then .|.put num| |00002560| 54 6f 43 68 61 72 28 63 | 68 61 72 54 6f 4e 75 6d |ToChar(c|harToNum| |00002570| 28 63 68 61 72 20 43 68 | 61 72 4e 75 6d 62 65 72 |(char Ch|arNumber| |00002580| 20 6f 66 20 54 65 78 74 | 53 74 72 69 6e 67 29 2b | of Text|String)+| |00002590| 39 36 29 20 c2 0d 69 6e | 74 6f 20 20 20 20 20 20 |96) ..in|to | |000025a0| 20 20 20 20 63 68 61 72 | 20 43 68 61 72 4e 75 6d | char| CharNum| |000025b0| 62 65 72 20 6f 66 20 54 | 65 78 74 53 74 72 69 6e |ber of T|extStrin| |000025c0| 67 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 72 65 74 |g.end re|peat.ret| |000025d0| 75 72 6e 20 54 65 78 74 | 53 74 72 69 6e 67 0d 65 |urn Text|String.e| |000025e0| 6e 64 20 42 6f 6c 64 69 | 66 79 20 20 20 20 20 20 |nd Boldi|fy | |000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00002600| 20 20 20 2d 2d 2d 2d 20 | 43 6f 70 79 72 69 67 68 | ---- |Copyrigh| |00002610| 74 ca a9 20 31 39 38 39 | 2c 20 62 79 20 4a 6f 65 |t.. 1989|, by Joe| |00002620| 20 52 75 73 68 0d 2d 2d | 2d 20 31 2d 2d 2d 2d 2d | Rush.--|- 1-----| |00002630| 2d 2d 31 30 2d 2d 2d 2d | 2d 2d 2d 2d 32 30 2d 2d |--10----|----20--| |00002640| 2d 2d 2d 2d 2d 2d 2d 33 | 31 20 2d 2d 2d 2d 0d 6f |-------3|1 ----.o| |00002650| 6e 20 44 65 42 6f 6c 64 | 69 66 79 54 68 65 53 65 |n DeBold|ifyTheSe| |00002660| 6c 65 63 74 69 6f 6e 0d | 0d 69 66 20 77 6f 72 64 |lection.|.if word| |00002670| 20 31 20 6f 66 20 74 68 | 65 20 73 65 6c 65 63 74 | 1 of th|e select| |00002680| 69 6f 6e 20 69 73 20 65 | 6d 70 74 79 0d 74 68 65 |ion is e|mpty.the| |00002690| 6e 20 61 6e 73 77 65 72 | 20 22 59 6f 75 20 6d 75 |n answer| "You mu| |000026a0| 73 74 20 73 65 6c 65 63 | 74 20 73 6f 6d 65 74 68 |st selec|t someth| |000026b0| 69 6e 67 20 66 69 72 73 | 74 2e 22 0d 65 6c 73 65 |ing firs|t.".else| |000026c0| 20 70 75 74 20 44 65 42 | 6f 6c 64 69 66 79 28 74 | put DeB|oldify(t| |000026d0| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 29 20 69 6e |he selec|tion) in| |000026e0| 74 6f 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |to the s|election| |000026f0| 0d 65 6e 64 20 44 65 42 | 6f 6c 64 69 66 79 54 68 |.end DeB|oldifyTh| |00002700| 65 53 65 6c 65 63 74 69 | 6f 6e 20 20 20 20 20 20 |eSelecti|on | |00002710| 20 20 20 20 20 2d 2d 2d | 2d 20 43 6f 70 79 72 69 | ---|- Copyri| |00002720| 67 68 74 ca a9 20 31 39 | 38 39 2c 20 62 79 20 4a |ght.. 19|89, by J| |00002730| 6f 65 20 52 75 73 68 0d | 2d 2d 2d 20 31 2d 2d 2d |oe Rush.|--- 1---| |00002740| 2d 2d 2d 2d 31 30 2d 2d | 2d 2d 2d 2d 2d 2d 32 30 |----10--|------20| |00002750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 33 31 20 2d 2d 2d 2d |--------|-31 ----| |00002760| 0d 66 75 6e 63 74 69 6f | 6e 20 44 65 42 6f 6c 64 |.functio|n DeBold| |00002770| 69 66 79 20 54 65 78 74 | 53 74 72 69 6e 67 0d 72 |ify Text|String.r| |00002780| 65 70 65 61 74 20 77 69 | 74 68 20 43 68 61 72 4e |epeat wi|th CharN| |00002790| 75 6d 62 65 72 20 3d 20 | 31 20 74 6f 20 74 68 65 |umber = |1 to the| |000027a0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars| |000027b0| 20 69 6e 20 54 65 78 74 | 53 74 72 69 6e 67 0d 73 | in Text|String.s| |000027c0| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus| |000027d0| 79 0d 69 66 20 20 63 68 | 61 72 54 6f 4e 75 6d 28 |y.if ch|arToNum(| |000027e0| 63 68 61 72 20 43 68 61 | 72 4e 75 6d 62 65 72 20 |char Cha|rNumber | |000027f0| 6f 66 20 54 65 78 74 53 | 74 72 69 6e 67 29 20 b3 |of TextS|tring) .| |00002800| 20 31 32 38 c2 0d 61 6e | 64 20 63 68 61 72 54 6f | 128..an|d charTo| |00002810| 4e 75 6d 28 63 68 61 72 | 20 43 68 61 72 4e 75 6d |Num(char| CharNum| |00002820| 62 65 72 20 6f 66 20 54 | 65 78 74 53 74 72 69 6e |ber of T|extStrin| |00002830| 67 29 20 3c 20 32 32 34 | 20 20 20 20 74 68 65 6e |g) < 224| then| |00002840| 20 c2 0d 70 75 74 20 6e | 75 6d 54 6f 43 68 61 72 | ..put n|umToChar| |00002850| 28 63 68 61 72 54 6f 4e | 75 6d 28 63 68 61 72 20 |(charToN|um(char | |00002860| 43 68 61 72 4e 75 6d 62 | 65 72 20 6f 66 20 54 65 |CharNumb|er of Te| |00002870| 78 74 53 74 72 69 6e 67 | 29 2d 39 36 29 20 c2 0d |xtString|)-96) ..| |00002880| 69 6e 74 6f 20 20 20 20 | 20 20 20 20 20 20 63 68 |into | ch| |00002890| 61 72 20 43 68 61 72 4e | 75 6d 62 65 72 20 6f 66 |ar CharN|umber of| |000028a0| 20 54 65 78 74 53 74 72 | 69 6e 67 0d 65 6e 64 20 | TextStr|ing.end | |000028b0| 72 65 70 65 61 74 0d 72 | 65 74 75 72 6e 20 54 65 |repeat.r|eturn Te| |000028c0| 78 74 53 74 72 69 6e 67 | 0d 65 6e 64 20 44 65 42 |xtString|.end DeB| |000028d0| 6f 6c 64 69 66 79 20 20 | 20 20 20 20 20 20 20 20 |oldify | | |000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d | | ---| |000028f0| 2d 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 31 39 |- Copyri|ght.. 19| |00002900| 38 39 2c 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |89, by J|oe Rush.| |00002910| 2d 2d 2d 20 31 2d 2d 2d | 2d 2d 2d 2d 31 30 2d 2d |--- 1---|----10--| |00002920| 2d 2d 2d 2d 2d 2d 32 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------20|--------| |00002930| 2d 33 31 20 2d 2d 2d 2d | 0d 6f 6e 20 4c 6f 6f 6b |-31 ----|.on Look| |00002940| 46 6f 72 48 69 64 64 65 | 6e 4f 62 6a 65 63 74 73 |ForHidde|nObjects| |00002950| 0d 0d 61 6e 73 77 65 72 | 20 22 4c 6f 6f 6b 20 66 |..answer| "Look f| |00002960| 6f 72 20 68 69 64 64 65 | 6e 20 42 75 74 74 6f 6e |or hidde|n Button| |00002970| 73 20 3f 22 20 77 69 74 | 68 20 4e 6f 20 6f 72 20 |s ?" wit|h No or | |00002980| 59 65 73 0d 69 66 20 69 | 74 20 69 73 20 22 59 65 |Yes.if i|t is "Ye| |00002990| 73 22 20 74 68 65 6e 20 | 4c 6f 6f 6b 46 6f 72 48 |s" then |LookForH| |000029a0| 69 64 64 65 6e 42 75 74 | 74 6f 6e 73 0d 0d 61 6e |iddenBut|tons..an| |000029b0| 73 77 65 72 20 22 4c 6f | 6f 6b 20 66 6f 72 20 68 |swer "Lo|ok for h| |000029c0| 69 64 64 65 6e 20 46 69 | 65 6c 64 73 20 3f 22 20 |idden Fi|elds ?" | |000029d0| 20 77 69 74 68 20 4e 6f | 20 6f 72 20 59 65 73 0d | with No| or Yes.| |000029e0| 69 66 20 69 74 20 69 73 | 20 22 59 65 73 22 20 20 |if it is| "Yes" | |000029f0| 74 68 65 6e 20 4c 6f 6f | 6b 46 6f 72 48 69 64 64 |then Loo|kForHidd| |00002a00| 65 6e 46 69 65 6c 64 73 | 0d 0d 61 6e 73 77 65 72 |enFields|..answer| |00002a10| 20 22 42 61 63 6b 67 72 | 6f 75 6e 64 20 50 69 63 | "Backgr|ound Pic| |00002a20| 74 75 72 65 20 3f 22 20 | 77 69 74 68 20 22 48 69 |ture ?" |with "Hi| |00002a30| 64 65 22 20 6f 72 20 22 | 53 68 6f 77 22 20 6f 72 |de" or "|Show" or| |00002a40| 20 22 53 6b 69 70 20 69 | 74 22 0d 69 66 20 20 20 | "Skip i|t".if | |00002a50| 20 20 20 69 74 20 69 73 | 20 22 53 68 6f 77 22 20 | it is| "Show" | |00002a60| 20 74 68 65 6e 20 73 68 | 6f 77 20 62 61 63 6b 67 | then sh|ow backg| |00002a70| 72 6f 75 6e 64 20 70 69 | 63 74 75 72 65 0d 65 6c |round pi|cture.el| |00002a80| 73 65 20 69 66 20 69 74 | 20 69 73 20 22 48 69 64 |se if it| is "Hid| |00002a90| 65 22 20 20 74 68 65 6e | 20 68 69 64 65 20 62 61 |e" then| hide ba| |00002aa0| 63 6b 67 72 6f 75 6e 64 | 20 70 69 63 74 75 72 65 |ckground| picture| |00002ab0| 0d 0d 61 6e 73 77 65 72 | 20 20 20 20 20 20 20 22 |..answer| "| |00002ac0| 43 61 72 64 20 50 69 63 | 74 75 72 65 20 3f 22 20 |Card Pic|ture ?" | |00002ad0| 77 69 74 68 20 22 48 69 | 64 65 22 20 6f 72 20 22 |with "Hi|de" or "| |00002ae0| 53 68 6f 77 22 20 6f 72 | 20 22 53 6b 69 70 20 69 |Show" or| "Skip i| |00002af0| 74 22 0d 69 66 20 20 20 | 20 20 20 69 74 20 69 73 |t".if | it is| |00002b00| 20 22 53 68 6f 77 22 20 | 20 74 68 65 6e 20 73 68 | "Show" | then sh| |00002b10| 6f 77 20 63 61 72 64 20 | 70 69 63 74 75 72 65 0d |ow card |picture.| |00002b20| 65 6c 73 65 20 69 66 20 | 69 74 20 69 73 20 22 48 |else if |it is "H| |00002b30| 69 64 65 22 20 20 74 68 | 65 6e 20 68 69 64 65 20 |ide" th|en hide | |00002b40| 63 61 72 64 20 70 69 63 | 74 75 72 65 0d 0d 65 6e |card pic|ture..en| |00002b50| 64 20 4c 6f 6f 6b 46 6f | 72 48 69 64 64 65 6e 4f |d LookFo|rHiddenO| |00002b60| 62 6a 65 63 74 73 20 20 | 20 20 20 20 20 20 20 20 |bjects | | |00002b70| 20 20 2d 2d 2d 2d 20 43 | 6f 70 79 72 69 67 68 74 | ---- C|opyright| |00002b80| ca a9 20 31 39 38 39 2c | 20 62 79 20 4a 6f 65 20 |.. 1989,| by Joe | |00002b90| 52 75 73 68 0d 2d 2d 2d | 20 31 2d 2d 2d 2d 2d 2d |Rush.---| 1------| |00002ba0| 2d 31 30 2d 2d 2d 2d 2d | 2d 2d 2d 32 30 2d 2d 2d |-10-----|---20---| |00002bb0| 2d 2d 2d 2d 2d 2d 33 31 | 20 2d 2d 2d 2d 0d 6f 6e |------31| ----.on| |00002bc0| 20 4c 6f 6f 6b 46 6f 72 | 48 69 64 64 65 6e 42 75 | LookFor|HiddenBu| |00002bd0| 74 74 6f 6e 73 0d 0d 72 | 65 70 65 61 74 20 77 69 |ttons..r|epeat wi| |00002be0| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 74 68 65 20 |th i = 1| to the | |00002bf0| 6e 75 6d 62 65 72 20 6f | 66 20 62 6b 67 6e 64 20 |number o|f bkgnd | |00002c00| 62 75 74 74 6f 6e 73 0d | 69 66 20 74 68 65 20 76 |buttons.|if the v| |00002c10| 69 73 69 62 6c 65 20 6f | 66 20 62 61 63 6b 67 72 |isible o|f backgr| |00002c20| 6f 75 6e 64 20 62 75 74 | 74 6f 6e 20 69 20 69 73 |ound but|ton i is| |00002c30| 20 66 61 6c 73 65 20 74 | 68 65 6e 0d 61 6e 73 77 | false t|hen.answ| |00002c40| 65 72 20 22 73 68 6f 77 | 20 22 20 26 20 74 68 65 |er "show| " & the| |00002c50| 20 6e 61 6d 65 20 6f 66 | 20 62 61 63 6b 67 72 6f | name of| backgro| |00002c60| 75 6e 64 20 62 75 74 74 | 6f 6e 20 69 20 77 69 74 |und butt|on i wit| |00002c70| 68 20 4e 6f 20 6f 72 20 | 59 65 73 0d 69 66 20 69 |h No or |Yes.if i| |00002c80| 74 20 69 73 20 22 59 65 | 73 22 20 74 68 65 6e 20 |t is "Ye|s" then | |00002c90| 73 68 6f 77 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 |show bac|kground | |00002ca0| 62 75 74 74 6f 6e 20 69 | 0d 65 6e 64 20 69 66 0d |button i|.end if.| |00002cb0| 65 6e 64 20 72 65 70 65 | 61 74 0d 0d 72 65 70 65 |end repe|at..repe| |00002cc0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to| |00002cd0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c| |00002ce0| 61 72 64 20 62 75 74 74 | 6f 6e 73 0d 69 66 20 74 |ard butt|ons.if t| |00002cf0| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 63 61 |he visib|le of ca| |00002d00| 72 64 20 62 75 74 74 6f | 6e 20 69 20 69 73 20 66 |rd butto|n i is f| |00002d10| 61 6c 73 65 20 74 68 65 | 6e 0d 61 6e 73 77 65 72 |alse the|n.answer| |00002d20| 20 22 73 68 6f 77 20 22 | 20 26 20 74 68 65 20 6e | "show "| & the n| |00002d30| 61 6d 65 20 6f 66 20 63 | 61 72 64 20 62 75 74 74 |ame of c|ard butt| |00002d40| 6f 6e 20 69 20 77 69 74 | 68 20 4e 6f 20 6f 72 20 |on i wit|h No or | |00002d50| 59 65 73 0d 69 66 20 69 | 74 20 69 73 20 22 59 65 |Yes.if i|t is "Ye| |00002d60| 73 22 20 74 68 65 6e 20 | 73 68 6f 77 20 63 61 72 |s" then |show car| |00002d70| 64 20 62 75 74 74 6f 6e | 20 69 0d 65 6e 64 20 69 |d button| i.end i| |00002d80| 66 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 0d 65 6e |f.end re|peat..en| |00002d90| 64 20 4c 6f 6f 6b 46 6f | 72 48 69 64 64 65 6e 42 |d LookFo|rHiddenB| |00002da0| 75 74 74 6f 6e 73 20 20 | 20 20 20 20 20 20 20 20 |uttons | | |00002db0| 20 20 2d 2d 2d 2d 20 43 | 6f 70 79 72 69 67 68 74 | ---- C|opyright| |00002dc0| ca a9 20 31 39 38 39 2c | 20 62 79 20 4a 6f 65 20 |.. 1989,| by Joe | |00002dd0| 52 75 73 68 0d 2d 2d 2d | 20 31 2d 2d 2d 2d 2d 2d |Rush.---| 1------| |00002de0| 2d 31 30 2d 2d 2d 2d 2d | 2d 2d 2d 32 30 2d 2d 2d |-10-----|---20---| |00002df0| 2d 2d 2d 2d 2d 2d 33 31 | 20 2d 2d 2d 2d 0d 6f 6e |------31| ----.on| |00002e00| 20 4c 6f 6f 6b 46 6f 72 | 48 69 64 64 65 6e 46 69 | LookFor|HiddenFi| |00002e10| 65 6c 64 73 0d 0d 72 65 | 70 65 61 74 20 77 69 74 |elds..re|peat wit| |00002e20| 68 20 69 20 3d 20 31 20 | 74 6f 20 74 68 65 20 6e |h i = 1 |to the n| |00002e30| 75 6d 62 65 72 20 6f 66 | 20 62 6b 67 6e 64 20 66 |umber of| bkgnd f| |00002e40| 69 65 6c 64 73 0d 69 66 | 20 74 68 65 20 76 69 73 |ields.if| the vis| |00002e50| 69 62 6c 65 20 6f 66 20 | 62 61 63 6b 67 72 6f 75 |ible of |backgrou| |00002e60| 6e 64 20 66 69 65 6c 64 | 20 69 20 69 73 20 66 61 |nd field| i is fa| |00002e70| 6c 73 65 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |lse then|.answer | |00002e80| 22 73 68 6f 77 20 22 20 | 26 20 74 68 65 20 6e 61 |"show " |& the na| |00002e90| 6d 65 20 6f 66 20 62 61 | 63 6b 67 72 6f 75 6e 64 |me of ba|ckground| |00002ea0| 20 66 69 65 6c 64 20 69 | 20 77 69 74 68 20 4e 6f | field i| with No| |00002eb0| 20 6f 72 20 59 65 73 0d | 69 66 20 69 74 20 69 73 | or Yes.|if it is| |00002ec0| 20 22 59 65 73 22 20 74 | 68 65 6e 20 73 68 6f 77 | "Yes" t|hen show| |00002ed0| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 66 69 65 6c | backgro|und fiel| |00002ee0| 64 20 69 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 72 |d i.end |if.end r| |00002ef0| 65 70 65 61 74 0d 0d 72 | 65 70 65 61 74 20 77 69 |epeat..r|epeat wi| |00002f00| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 74 68 65 20 |th i = 1| to the | |00002f10| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 72 64 20 66 |number o|f card f| |00002f20| 69 65 6c 64 73 0d 69 66 | 20 74 68 65 20 76 69 73 |ields.if| the vis| |00002f30| 69 62 6c 65 20 6f 66 20 | 63 61 72 64 20 66 69 65 |ible of |card fie| |00002f40| 6c 64 20 69 20 69 73 20 | 66 61 6c 73 65 20 74 68 |ld i is |false th| |00002f50| 65 6e 0d 61 6e 73 77 65 | 72 20 22 73 68 6f 77 20 |en.answe|r "show | |00002f60| 22 20 26 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |" & the |name of | |00002f70| 63 61 72 64 20 66 69 65 | 6c 64 20 69 20 77 69 74 |card fie|ld i wit| |00002f80| 68 20 4e 6f 20 6f 72 20 | 59 65 73 0d 69 66 20 69 |h No or |Yes.if i| |00002f90| 74 20 69 73 20 22 59 65 | 73 22 20 74 68 65 6e 20 |t is "Ye|s" then | |00002fa0| 73 68 6f 77 20 63 61 72 | 64 20 66 69 65 6c 64 20 |show car|d field | |00002fb0| 69 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 72 65 70 |i.end if|.end rep| |00002fc0| 65 61 74 0d 0d 65 6e 64 | 20 4c 6f 6f 6b 46 6f 72 |eat..end| LookFor| |00002fd0| 48 69 64 64 65 6e 46 69 | 65 6c 64 73 20 20 20 20 |HiddenFi|elds | |00002fe0| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 20 43 6f | | ---- Co| |00002ff0| 70 79 72 69 67 68 74 ca | a9 20 31 39 38 39 2c 20 |pyright.|. 1989, | |00003000| 62 79 20 4a 6f 65 20 52 | 75 73 68 0d 2d 2d 2d 20 |by Joe R|ush.--- | |00003010| 31 2d 2d 2d 2d 2d 2d 2d | 31 30 2d 2d 2d 2d 2d 2d |1-------|10------| |00003020| 2d 2d 32 30 2d 2d 2d 2d | 2d 2d 2d 2d 2d 33 31 20 |--20----|-----31 | |00003030| 2d 2d 2d 2d 0d 6f 6e 20 | 43 68 61 6e 67 65 43 61 |----.on |ChangeCa| |00003040| 73 65 0d 0d 69 66 20 77 | 6f 72 64 20 31 20 6f 66 |se..if w|ord 1 of| |00003050| 20 74 68 65 20 73 65 6c | 65 63 74 69 6f 6e 20 69 | the sel|ection i| |00003060| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 0d 61 6e |s empty |then..an| |00003070| 73 77 65 72 20 20 20 20 | 20 22 59 6f 75 20 6d 75 |swer | "You mu| |00003080| 73 74 20 73 65 6c 65 63 | 74 20 73 6f 6d 65 74 68 |st selec|t someth| |00003090| 69 6e 67 20 66 69 72 73 | 74 2e 22 0d 0d 65 6c 73 |ing firs|t."..els| |000030a0| 65 0d 0d 69 66 20 74 68 | 65 20 73 65 6c 65 63 74 |e..if th|e select| |000030b0| 65 64 46 69 65 6c 64 20 | 69 73 20 22 6d 65 73 73 |edField |is "mess| |000030c0| 61 67 65 20 62 6f 78 22 | 0d 74 68 65 6e 20 20 20 |age box"|.then | |000030d0| 70 75 74 20 20 20 20 20 | 22 47 65 6e 65 76 61 22 |put |"Geneva"| |000030e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |000030f0| 20 20 20 20 20 20 69 6e | 74 6f 20 54 68 65 54 65 | in|to TheTe| |00003100| 78 74 46 6f 6e 74 0d 65 | 6c 73 65 20 20 20 70 75 |xtFont.e|lse pu| |00003110| 74 20 74 68 65 20 74 65 | 78 74 46 6f 6e 74 20 6f |t the te|xtFont o| |00003120| 66 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 46 69 |f the se|lectedFi| |00003130| 65 6c 64 20 69 6e 74 6f | 20 54 68 65 54 65 78 74 |eld into| TheText| |00003140| 46 6f 6e 74 0d 0d 43 68 | 61 6e 67 65 43 61 73 65 |Font..Ch|angeCase| |00003150| 4f 66 54 68 65 53 65 6c | 65 63 74 69 6f 6e 20 54 |OfTheSel|ection T| |00003160| 68 65 54 65 78 74 46 6f | 6e 74 0d 0d 65 6e 64 20 |heTextFo|nt..end | |00003170| 69 66 0d 0d 65 6e 64 20 | 43 68 61 6e 67 65 43 61 |if..end |ChangeCa| |00003180| 73 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |se | | |00003190| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 20 43 6f 70 | |---- Cop| |000031a0| 79 72 69 67 68 74 ca a9 | 20 31 39 38 39 2c 20 62 |yright..| 1989, b| |000031b0| 79 20 4a 6f 65 20 52 75 | 73 68 0d 2d 2d 2d 20 31 |y Joe Ru|sh.--- 1| |000031c0| 2d 2d 2d 2d 2d 2d 2d 31 | 30 2d 2d 2d 2d 2d 2d 2d |-------1|0-------| |000031d0| 2d 32 30 2d 2d 2d 2d 2d | 2d 2d 2d 2d 33 31 20 2d |-20-----|----31 -| |000031e0| 2d 2d 2d 0d 6f 6e 20 43 | 68 61 6e 67 65 43 61 73 |---.on C|hangeCas| |000031f0| 65 4f 66 54 68 65 53 65 | 6c 65 63 74 69 6f 6e 20 |eOfTheSe|lection | |00003200| 54 68 65 54 65 78 74 46 | 6f 6e 74 0d 0d 61 6e 73 |TheTextF|ont..ans| |00003210| 77 65 72 20 20 20 20 20 | 20 20 22 27 55 50 50 45 |wer | "'UPPE| |00003220| 52 43 41 53 45 27 2c 20 | 27 6c 6f 77 65 72 63 61 |RCASE', |'lowerca| |00003230| 73 65 27 2c 20 6f 72 20 | 27 57 6f 72 64 20 43 61 |se', or |'Word Ca| |00003240| 73 65 27 20 3f 22 20 c2 | 0d 77 69 74 68 20 20 20 |se' ?" .|.with | |00003250| 20 20 20 20 20 20 20 22 | 55 50 50 45 52 22 20 20 | "|UPPER" | |00003260| 6f 72 20 20 22 6c 6f 77 | 65 72 22 20 20 20 20 20 |or "low|er" | |00003270| 20 6f 72 20 22 57 6f 72 | 64 22 0d 0d 69 66 20 20 | or "Wor|d"..if | |00003280| 20 20 20 20 69 74 20 69 | 73 20 22 57 6f 72 64 22 | it i|s "Word"| |00003290| 20 20 74 68 65 6e 0d 70 | 75 74 20 43 68 61 6e 67 | then.p|ut Chang| |000032a0| 65 54 6f 4c 6f 77 65 72 | 43 61 73 65 28 74 68 65 |eToLower|Case(the| |000032b0| 20 73 65 6c 65 63 74 69 | 6f 6e 2c 54 68 65 54 65 | selecti|on,TheTe| |000032c0| 78 74 46 6f 6e 74 29 20 | 69 6e 74 6f 20 54 65 78 |xtFont) |into Tex| |000032d0| 74 54 6f 42 65 43 68 61 | 6e 67 65 64 0d 72 65 70 |tToBeCha|nged.rep| |000032e0| 65 61 74 20 77 69 74 68 | 20 57 6f 72 64 4e 75 6d |eat with| WordNum| |000032f0| 62 65 72 20 3d 20 31 20 | 74 6f 20 74 68 65 20 6e |ber = 1 |to the n| |00003300| 75 6d 62 65 72 20 6f 66 | 20 77 6f 72 64 73 20 69 |umber of| words i| |00003310| 6e 20 54 65 78 74 54 6f | 42 65 43 68 61 6e 67 65 |n TextTo|BeChange| |00003320| 64 0d 70 75 74 20 43 68 | 61 6e 67 65 54 6f 55 70 |d.put Ch|angeToUp| |00003330| 70 65 72 43 61 73 65 c2 | 0d 28 20 20 20 20 63 68 |perCase.|.( ch| |00003340| 61 72 20 31 20 6f 66 20 | 77 6f 72 64 20 57 6f 72 |ar 1 of |word Wor| |00003350| 64 4e 75 6d 62 65 72 20 | 6f 66 20 54 65 78 74 54 |dNumber |of TextT| |00003360| 6f 42 65 43 68 61 6e 67 | 65 64 2c 54 68 65 54 65 |oBeChang|ed,TheTe| |00003370| 78 74 46 6f 6e 74 29 20 | c2 0d 69 6e 74 6f 20 63 |xtFont) |..into c| |00003380| 68 61 72 20 31 20 6f 66 | 20 77 6f 72 64 20 57 6f |har 1 of| word Wo| |00003390| 72 64 4e 75 6d 62 65 72 | 20 6f 66 20 54 65 78 74 |rdNumber| of Text| |000033a0| 54 6f 42 65 43 68 61 6e | 67 65 64 0d 65 6e 64 20 |ToBeChan|ged.end | |000033b0| 72 65 70 65 61 74 0d 74 | 79 70 65 20 54 65 78 74 |repeat.t|ype Text| |000033c0| 54 6f 42 65 43 68 61 6e | 67 65 64 0d 65 6c 73 65 |ToBeChan|ged.else| |000033d0| 20 69 66 20 69 74 20 69 | 73 20 22 55 50 50 45 52 | if it i|s "UPPER| |000033e0| 22 20 74 68 65 6e 20 74 | 79 70 65 20 43 68 61 6e |" then t|ype Chan| |000033f0| 67 65 54 6f 55 70 70 65 | 72 43 61 73 65 28 74 68 |geToUppe|rCase(th| |00003400| 65 20 73 65 6c 65 63 74 | 69 6f 6e 2c 54 68 65 54 |e select|ion,TheT| |00003410| 65 78 74 46 6f 6e 74 29 | 20 2d 2d 54 48 45 20 58 |extFont)| --THE X| |00003420| 43 4d 44 20 55 70 70 65 | 72 20 57 4f 4e 54 20 57 |CMD Uppe|r WONT W| |00003430| 4f 52 4b 20 57 49 54 48 | 20 4d 59 20 47 45 4e 45 |ORK WITH| MY GENE| |00003440| 56 41 42 4f 4c 44 20 46 | 4f 4e 54 0d 65 6c 73 65 |VABOLD F|ONT.else| |00003450| 20 69 66 20 69 74 20 69 | 73 20 22 6c 6f 77 65 72 | if it i|s "lower| |00003460| 22 20 74 68 65 6e 20 74 | 79 70 65 20 43 68 61 6e |" then t|ype Chan| |00003470| 67 65 54 6f 4c 6f 77 65 | 72 43 61 73 65 28 74 68 |geToLowe|rCase(th| |00003480| 65 20 73 65 6c 65 63 74 | 69 6f 6e 2c 54 68 65 54 |e select|ion,TheT| |00003490| 65 78 74 46 6f 6e 74 29 | 0d 0d 65 6e 64 20 43 68 |extFont)|..end Ch| |000034a0| 61 6e 67 65 43 61 73 65 | 4f 66 54 68 65 53 65 6c |angeCase|OfTheSel| |000034b0| 65 63 74 69 6f 6e 20 20 | 20 20 20 20 20 20 2d 2d |ection | --| |000034c0| 2d 2d 20 43 6f 70 79 72 | 69 67 68 74 ca a9 20 31 |-- Copyr|ight.. 1| |000034d0| 39 38 39 2c 20 62 79 20 | 4a 6f 65 20 52 75 73 68 |989, by |Joe Rush| |000034e0| 0d 2d 2d 2d 20 31 2d 2d | 2d 2d 2d 2d 2d 31 30 2d |.--- 1--|-----10-| |000034f0| 2d 2d 2d 2d 2d 2d 2d 32 | 30 2d 2d 2d 2d 2d 2d 2d |-------2|0-------| |00003500| 2d 2d 33 31 20 2d 2d 2d | 2d 0d 66 75 6e 63 74 69 |--31 ---|-.functi| |00003510| 6f 6e 20 43 68 61 6e 67 | 65 54 6f 55 70 70 65 72 |on Chang|eToUpper| |00003520| 43 61 73 65 20 54 65 78 | 74 53 74 72 69 6e 67 2c |Case Tex|tString,| |00003530| 20 54 68 65 54 65 78 74 | 46 6f 6e 74 0d 0d 72 65 | TheText|Font..re| |00003540| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 | |00003550| 74 6f 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |to the n|umber of| |00003560| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 54 | charact|ers in T| |00003570| 65 78 74 53 74 72 69 6e | 67 0d 69 66 20 20 20 20 |extStrin|g.if | |00003580| 20 20 63 68 61 72 54 6f | 4e 75 6d 28 63 68 61 72 | charTo|Num(char| |00003590| 20 69 20 6f 66 20 54 65 | 78 74 53 74 72 69 6e 67 | i of Te|xtString| |000035a0| 29 20 3e 20 20 39 36 20 | 20 c2 0d 61 6e 64 20 20 |) > 96 | ..and | |000035b0| 20 20 20 63 68 61 72 54 | 6f 4e 75 6d 28 63 68 61 | charT|oNum(cha| |000035c0| 72 20 69 20 6f 66 20 54 | 65 78 74 53 74 72 69 6e |r i of T|extStrin| |000035d0| 67 29 20 3c 20 20 31 32 | 33 20 20 20 20 20 20 74 |g) < 12|3 t| |000035e0| 68 65 6e 0d 70 75 74 20 | 6e 75 6d 54 6f 43 68 61 |hen.put |numToCha| |000035f0| 72 28 63 68 61 72 54 6f | 4e 75 6d 28 63 68 61 72 |r(charTo|Num(char| |00003600| 20 69 20 6f 66 20 54 65 | 78 74 53 74 72 69 6e 67 | i of Te|xtString| |00003610| 29 2d 33 32 29 20 c2 0d | 69 6e 74 6f 20 20 20 20 |)-32) ..|into | |00003620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00003630| 63 68 61 72 20 69 20 6f | 66 20 54 65 78 74 53 74 |char i o|f TextSt| |00003640| 72 69 6e 67 0d 65 6c 73 | 65 20 69 66 20 63 68 61 |ring.els|e if cha| |00003650| 72 54 6f 4e 75 6d 28 63 | 68 61 72 20 69 20 6f 66 |rToNum(c|har i of| |00003660| 20 54 65 78 74 53 74 72 | 69 6e 67 29 20 3e 20 31 | TextStr|ing) > 1| |00003670| 39 32 20 20 c2 0d 61 6e | 64 20 20 20 20 20 63 68 |92 ..an|d ch| |00003680| 61 72 54 6f 4e 75 6d 28 | 63 68 61 72 20 69 20 6f |arToNum(|char i o| |00003690| 66 20 54 65 78 74 53 74 | 72 69 6e 67 29 20 3c 20 |f TextSt|ring) < | |000036a0| 32 31 39 20 20 c2 0d 61 | 6e 64 20 20 20 20 20 20 |219 ..a|nd | |000036b0| 20 20 20 54 68 65 54 65 | 78 74 46 6f 6e 74 20 69 | TheTe|xtFont i| |000036c0| 73 20 22 47 65 6e 65 76 | 61 42 6f 6c 64 22 20 20 |s "Genev|aBold" | |000036d0| 20 20 20 20 20 20 20 20 | 20 20 74 68 65 6e 0d 70 | | then.p| |000036e0| 75 74 20 6e 75 6d 54 6f | 43 68 61 72 28 63 68 61 |ut numTo|Char(cha| |000036f0| 72 54 6f 4e 75 6d 28 63 | 68 61 72 20 69 20 6f 66 |rToNum(c|har i of| |00003700| 20 54 65 78 74 53 74 72 | 69 6e 67 29 2d 33 32 29 | TextStr|ing)-32)| |00003710| 20 c2 0d 69 6e 74 6f 20 | 20 20 20 20 20 20 20 20 | ..into | | |00003720| 20 20 20 20 20 20 20 20 | 20 20 20 63 68 61 72 20 | | char | |00003730| 69 20 6f 66 20 54 65 78 | 74 53 74 72 69 6e 67 0d |i of Tex|tString.| |00003740| 65 6e 64 20 69 66 0d 73 | 65 74 20 63 75 72 73 6f |end if.s|et curso| |00003750| 72 20 74 6f 20 62 75 73 | 79 0d 65 6e 64 20 72 65 |r to bus|y.end re| |00003760| 70 65 61 74 0d 72 65 74 | 75 72 6e 20 54 65 78 74 |peat.ret|urn Text| |00003770| 53 74 72 69 6e 67 0d 65 | 6e 64 20 43 68 61 6e 67 |String.e|nd Chang| |00003780| 65 54 6f 55 70 70 65 72 | 43 61 73 65 20 20 20 20 |eToUpper|Case | |00003790| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 20 | | ---- | |000037a0| 43 6f 70 79 72 69 67 68 | 74 ca a9 20 31 39 38 39 |Copyrigh|t.. 1989| |000037b0| 2c 20 62 79 20 4a 6f 65 | 20 52 75 73 68 0d 2d 2d |, by Joe| Rush.--| |000037c0| 2d 20 31 2d 2d 2d 2d 2d | 2d 2d 31 30 2d 2d 2d 2d |- 1-----|--10----| |000037d0| 2d 2d 2d 2d 32 30 2d 2d | 2d 2d 2d 2d 2d 2d 2d 33 |----20--|-------3| |000037e0| 31 20 2d 2d 2d 2d 0d 66 | 75 6e 63 74 69 6f 6e 20 |1 ----.f|unction | |000037f0| 43 68 61 6e 67 65 54 6f | 4c 6f 77 65 72 43 61 73 |ChangeTo|LowerCas| |00003800| 65 20 54 65 78 74 53 74 | 72 69 6e 67 2c 20 54 68 |e TextSt|ring, Th| |00003810| 65 54 65 78 74 46 6f 6e | 74 0d 0d 72 65 70 65 61 |eTextFon|t..repea| |00003820| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to | |00003830| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch| |00003840| 61 72 61 63 74 65 72 73 | 20 69 6e 20 54 65 78 74 |aracters| in Text| |00003850| 53 74 72 69 6e 67 0d 69 | 66 20 20 20 20 20 20 63 |String.i|f c| |00003860| 68 61 72 54 6f 4e 75 6d | 28 63 68 61 72 20 69 20 |harToNum|(char i | |00003870| 6f 66 20 54 65 78 74 53 | 74 72 69 6e 67 29 20 3e |of TextS|tring) >| |00003880| 20 20 36 34 20 20 c2 0d | 61 6e 64 20 20 20 20 20 | 64 ..|and | |00003890| 63 68 61 72 54 6f 4e 75 | 6d 28 63 68 61 72 20 69 |charToNu|m(char i| |000038a0| 20 6f 66 20 54 65 78 74 | 53 74 72 69 6e 67 29 20 | of Text|String) | |000038b0| 3c 20 20 39 31 20 20 20 | 20 20 20 74 68 65 6e 0d |< 91 | then.| |000038c0| 70 75 74 20 6e 75 6d 54 | 6f 43 68 61 72 28 63 68 |put numT|oChar(ch| |000038d0| 61 72 54 6f 4e 75 6d 28 | 63 68 61 72 20 69 20 6f |arToNum(|char i o| |000038e0| 66 20 54 65 78 74 53 74 | 72 69 6e 67 29 2b 33 32 |f TextSt|ring)+32| |000038f0| 29 20 c2 0d 69 6e 74 6f | 20 20 20 20 20 20 20 20 |) ..into| | |00003900| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 68 61 72 | | char| |00003910| 20 69 20 6f 66 20 54 65 | 78 74 53 74 72 69 6e 67 | i of Te|xtString| |00003920| 0d 65 6c 73 65 20 69 66 | 20 63 68 61 72 54 6f 4e |.else if| charToN| |00003930| 75 6d 28 63 68 61 72 20 | 69 20 6f 66 20 54 65 78 |um(char |i of Tex| |00003940| 74 53 74 72 69 6e 67 29 | 20 3e 20 31 36 30 20 20 |tString)| > 160 | |00003950| c2 0d 61 6e 64 20 20 20 | 20 20 63 68 61 72 54 6f |..and | charTo| |00003960| 4e 75 6d 28 63 68 61 72 | 20 69 20 6f 66 20 54 65 |Num(char| i of Te| |00003970| 78 74 53 74 72 69 6e 67 | 29 20 3c 20 31 38 37 20 |xtString|) < 187 | |00003980| 20 c2 0d 61 6e 64 20 20 | 20 20 20 20 20 20 20 54 | ..and | T| |00003990| 68 65 54 65 78 74 46 6f | 6e 74 20 69 73 20 22 47 |heTextFo|nt is "G| |000039a0| 65 6e 65 76 61 42 6f 6c | 64 22 20 20 20 20 20 20 |enevaBol|d" | |000039b0| 20 20 20 20 20 20 74 68 | 65 6e 0d 70 75 74 20 6e | th|en.put n| |000039c0| 75 6d 54 6f 43 68 61 72 | 28 63 68 61 72 54 6f 4e |umToChar|(charToN| |000039d0| 75 6d 28 63 68 61 72 20 | 69 20 6f 66 20 54 65 78 |um(char |i of Tex| |000039e0| 74 53 74 72 69 6e 67 29 | 2b 33 32 29 20 c2 0d 69 |tString)|+32) ..i| |000039f0| 6e 74 6f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nto | | |00003a00| 20 20 20 20 20 20 20 63 | 68 61 72 20 69 20 6f 66 | c|har i of| |00003a10| 20 54 65 78 74 53 74 72 | 69 6e 67 0d 65 6e 64 20 | TextStr|ing.end | |00003a20| 69 66 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |if.set c|ursor to| |00003a30| 20 62 75 73 79 0d 65 6e | 64 20 72 65 70 65 61 74 | busy.en|d repeat| |00003a40| 0d 72 65 74 75 72 6e 20 | 54 65 78 74 53 74 72 69 |.return |TextStri| |00003a50| 6e 67 0d 65 6e 64 20 43 | 68 61 6e 67 65 54 6f 4c |ng.end C|hangeToL| |00003a60| 6f 77 65 72 43 61 73 65 | 20 20 20 20 20 20 20 20 |owerCase| | |00003a70| 20 20 20 20 20 20 20 2d | 2d 2d 2d 20 43 6f 70 79 | -|--- Copy| |00003a80| 72 69 67 68 74 ca a9 20 | 31 39 38 39 2c 20 62 79 |right.. |1989, by| |00003a90| 20 4a 6f 65 20 52 75 73 | 68 0d 2d 2d 2d 20 31 2d | Joe Rus|h.--- 1-| |00003aa0| 2d 2d 2d 2d 2d 2d 31 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------10|--------| |00003ab0| 32 30 2d 2d 2d 2d 2d 2d | 2d 2d 2d 33 31 20 2d 2d |20------|---31 --| |00003ac0| 2d 2d 0d 6f 6e 20 53 65 | 61 72 63 68 53 63 72 69 |--.on Se|archScri| |00003ad0| 70 74 73 0d 67 6c 6f 62 | 61 6c 20 54 65 78 74 53 |pts.glob|al TextS| |00003ae0| 74 72 69 6e 67 46 6f 72 | 53 65 61 72 63 68 0d 0d |tringFor|Search..| |00003af0| 69 66 20 20 77 6f 72 64 | 20 31 20 6f 66 20 74 68 |if word| 1 of th| |00003b00| 65 20 73 65 6c 65 63 74 | 69 6f 6e 20 20 20 69 73 |e select|ion is| |00003b10| 20 6e 6f 74 20 20 20 65 | 6d 70 74 79 0d 74 68 65 | not e|mpty.the| |00003b20| 6e 20 20 70 75 74 20 74 | 68 65 20 73 65 6c 65 63 |n put t|he selec| |00003b30| 74 69 6f 6e 20 20 20 20 | 69 6e 74 6f 20 20 54 65 |tion |into Te| |00003b40| 78 74 53 74 72 69 6e 67 | 46 6f 72 53 65 61 72 63 |xtString|ForSearc| |00003b50| 68 0d 65 6c 73 65 20 69 | 66 20 54 65 78 74 53 74 |h.else i|f TextSt| |00003b60| 72 69 6e 67 46 6f 72 53 | 65 61 72 63 68 20 69 73 |ringForS|earch is| |00003b70| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 70 75 74 20 | empty t|hen put | |00003b80| 22 53 68 6f 77 20 41 6c | 6c 20 53 63 72 69 70 74 |"Show Al|l Script| |00003b90| 73 22 20 c2 0d 69 6e 74 | 6f 20 20 20 20 54 65 78 |s" ..int|o Tex| |00003ba0| 74 53 74 72 69 6e 67 46 | 6f 72 53 65 61 72 63 68 |tStringF|orSearch| |00003bb0| 0d 0d 61 73 6b 20 22 45 | 6e 74 65 72 20 54 65 78 |..ask "E|nter Tex| |00003bc0| 74 20 53 74 72 69 6e 67 | 20 66 6f 72 20 53 65 61 |t String| for Sea| |00003bd0| 72 63 68 22 20 77 69 74 | 68 20 54 65 78 74 53 74 |rch" wit|h TextSt| |00003be0| 72 69 6e 67 46 6f 72 53 | 65 61 72 63 68 0d 69 66 |ringForS|earch.if| |00003bf0| 20 69 74 20 69 73 20 6e | 6f 74 20 65 6d 70 74 79 | it is n|ot empty| |00003c00| 20 74 68 65 6e 0d 70 75 | 74 20 69 74 20 69 6e 74 | then.pu|t it int| |00003c10| 6f 20 54 65 78 74 53 74 | 72 69 6e 67 46 6f 72 53 |o TextSt|ringForS| |00003c20| 65 61 72 63 68 0d 0d 41 | 6e 73 77 65 72 20 22 53 |earch..A|nswer "S| |00003c30| 65 61 72 63 68 20 74 68 | 69 73 20 73 74 61 63 6b |earch th|is stack| |00003c40| 20 3f 20 28 22 26 74 68 | 65 20 73 68 6f 72 74 20 | ? ("&th|e short | |00003c50| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 73 74 61 |name of |this sta| |00003c60| 63 6b 26 22 29 22 c2 0d | 77 69 74 68 20 4e 6f 20 |ck&")"..|with No | |00003c70| 6f 72 20 59 65 73 0d 69 | 66 20 20 20 20 20 69 74 |or Yes.i|f it| |00003c80| 20 69 73 20 22 59 65 73 | 22 20 20 20 20 74 68 65 | is "Yes|" the| |00003c90| 6e 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |n.put em|pty into| |00003ca0| 20 53 74 61 63 6b 59 6f | 75 57 61 6e 74 54 6f 53 | StackYo|uWantToS| |00003cb0| 65 61 72 63 68 0d 65 6c | 73 65 0d 70 75 74 20 66 |earch.el|se.put f| |00003cc0| 69 6c 65 4e 61 6d 65 28 | 22 53 54 41 4b 22 29 20 |ileName(|"STAK") | |00003cd0| 69 6e 74 6f 20 53 74 61 | 63 6b 59 6f 75 57 61 6e |into Sta|ckYouWan| |00003ce0| 74 54 6f 53 65 61 72 63 | 68 0d 69 66 20 53 74 61 |tToSearc|h.if Sta| |00003cf0| 63 6b 59 6f 75 57 61 6e | 74 54 6f 53 65 61 72 63 |ckYouWan|tToSearc| |00003d00| 68 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |h is emp|ty then | |00003d10| 65 78 69 74 20 74 6f 20 | 68 79 70 65 72 43 61 72 |exit to |hyperCar| |00003d20| 64 0d 65 6e 64 20 69 66 | 0d 0d 73 65 61 72 63 68 |d.end if|..search| |00003d30| 53 63 72 69 70 74 20 54 | 65 78 74 53 74 72 69 6e |Script T|extStrin| |00003d40| 67 46 6f 72 53 65 61 72 | 63 68 2c 20 53 74 61 63 |gForSear|ch, Stac| |00003d50| 6b 59 6f 75 57 61 6e 74 | 54 6f 53 65 61 72 63 68 |kYouWant|ToSearch| |00003d60| 0d 65 6e 64 20 69 66 0d | 0d 65 6e 64 20 53 65 61 |.end if.|.end Sea| |00003d70| 72 63 68 53 63 72 69 70 | 74 73 20 20 20 20 20 20 |rchScrip|ts | |00003d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d | | ---| |00003d90| 2d 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 31 39 |- Copyri|ght.. 19| |00003da0| 38 39 2c 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |89, by J|oe Rush.| |00003db0| 2d 2d 2d 20 31 2d 2d 2d | 2d 2d 2d 2d 31 30 2d 2d |--- 1---|----10--| |00003dc0| 2d 2d 2d 2d 2d 2d 32 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------20|--------| |00003dd0| 2d 33 31 20 2d 2d 2d 2d | 0d 6f 6e 20 73 65 61 72 |-31 ----|.on sear| |00003de0| 63 68 53 63 72 69 70 74 | 20 70 61 74 74 65 72 6e |chScript| pattern| |00003df0| 2c 20 73 74 61 63 6b 4e | 61 6d 65 20 20 20 2d 2d |, stackN|ame --| |00003e00| 20 73 65 61 72 63 68 20 | 61 6c 6c 20 73 63 72 69 | search |all scri| |00003e10| 70 74 73 20 6f 66 20 61 | 20 73 74 61 63 6b 0d 0d |pts of a| stack..| |00003e20| 73 65 74 20 6c 6f 63 6b | 4d 65 73 73 61 67 65 73 |set lock|Messages| |00003e30| 20 74 6f 20 74 72 75 65 | 0d 70 75 73 68 20 74 68 | to true|.push th| |00003e40| 69 73 20 63 61 72 64 0d | 69 66 20 73 74 61 63 6b |is card.|if stack| |00003e50| 4e 61 6d 65 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |Name is |not empt| |00003e60| 79 20 74 68 65 6e 20 67 | 6f 20 74 6f 20 73 74 61 |y then g|o to sta| |00003e70| 63 6b 20 73 74 61 63 6b | 4e 61 6d 65 0d 0d 69 66 |ck stack|Name..if| |00003e80| 20 74 68 65 20 6f 70 74 | 69 6f 6e 4b 65 79 20 69 | the opt|ionKey i| |00003e90| 73 20 64 6f 77 6e 20 74 | 68 65 6e 20 6c 6f 63 6b |s down t|hen lock| |00003ea0| 20 73 63 72 65 65 6e 0d | 0d 69 66 20 74 68 65 20 | screen.|.if the | |00003eb0| 73 63 72 69 70 74 20 6f | 66 20 74 68 69 73 20 73 |script o|f this s| |00003ec0| 74 61 63 6b 20 63 6f 6e | 74 61 69 6e 73 20 70 61 |tack con|tains pa| |00003ed0| 74 74 65 72 6e 20 c2 0d | 6f 72 20 70 61 74 74 65 |ttern ..|or patte| |00003ee0| 72 6e 20 69 73 20 22 53 | 68 6f 77 20 41 6c 6c 20 |rn is "S|how All | |00003ef0| 53 63 72 69 70 74 73 22 | 20 74 68 65 6e 20 65 64 |Scripts"| then ed| |00003f00| 69 74 20 73 63 72 69 70 | 74 20 6f 66 20 74 68 69 |it scrip|t of thi| |00003f10| 73 20 73 74 61 63 6b 0d | 0d 72 65 70 65 61 74 20 |s stack.|.repeat | |00003f20| 77 69 74 68 20 69 20 3d | 20 31 20 74 6f 20 74 68 |with i =| 1 to th| |00003f30| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 62 6b 67 6e |e number| of bkgn| |00003f40| 64 73 0d 67 6f 20 74 6f | 20 63 61 72 64 20 31 20 |ds.go to| card 1 | |00003f50| 6f 66 20 62 6b 67 6e 64 | 20 69 0d 69 66 20 74 68 |of bkgnd| i.if th| |00003f60| 65 20 6f 70 74 69 6f 6e | 4b 65 79 20 69 73 20 64 |e option|Key is d| |00003f70| 6f 77 6e 20 74 68 65 6e | 20 6c 6f 63 6b 20 73 63 |own then| lock sc| |00003f80| 72 65 65 6e 0d 0d 69 66 | 20 74 68 65 20 73 63 72 |reen..if| the scr| |00003f90| 69 70 74 20 6f 66 20 74 | 68 69 73 20 62 6b 67 6e |ipt of t|his bkgn| |00003fa0| 64 20 63 6f 6e 74 61 69 | 6e 73 20 70 61 74 74 65 |d contai|ns patte| |00003fb0| 72 6e 20 c2 0d 6f 72 20 | 70 61 74 74 65 72 6e 20 |rn ..or |pattern | |00003fc0| 69 73 20 22 53 68 6f 77 | 20 41 6c 6c 20 53 63 72 |is "Show| All Scr| |00003fd0| 69 70 74 73 22 20 74 68 | 65 6e 20 65 64 69 74 20 |ipts" th|en edit | |00003fe0| 73 63 72 69 70 74 20 6f | 66 20 62 6b 67 6e 64 0d |script o|f bkgnd.| |00003ff0| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 6a 20 3d |.repeat |with j =| |00004000| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number| |00004010| 20 6f 66 20 62 6b 67 6e | 64 20 62 75 74 74 6f 6e | of bkgn|d button| |00004020| 73 0d 69 66 20 74 68 65 | 20 73 63 72 69 70 74 20 |s.if the| script | |00004030| 6f 66 20 62 6b 67 6e 64 | 20 62 75 74 74 6f 6e 20 |of bkgnd| button | |00004040| 6a 20 63 6f 6e 74 61 69 | 6e 73 20 70 61 74 74 65 |j contai|ns patte| |00004050| 72 6e 20 c2 0d 6f 72 20 | 70 61 74 74 65 72 6e 20 |rn ..or |pattern | |00004060| 69 73 20 22 53 68 6f 77 | 20 41 6c 6c 20 53 63 72 |is "Show| All Scr| |00004070| 69 70 74 73 22 20 74 68 | 65 6e 20 65 64 69 74 20 |ipts" th|en edit | |00004080| 73 63 72 69 70 74 20 6f | 66 20 62 6b 67 6e 64 20 |script o|f bkgnd | |00004090| 62 75 74 74 6f 6e 20 6a | 0d 65 6e 64 20 72 65 70 |button j|.end rep| |000040a0| 65 61 74 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |eat.repe|at with | |000040b0| 6a 20 3d 20 31 20 74 6f | 20 74 68 65 20 6e 75 6d |j = 1 to| the num| |000040c0| 62 65 72 20 6f 66 20 62 | 6b 67 6e 64 20 66 69 65 |ber of b|kgnd fie| |000040d0| 6c 64 73 0d 69 66 20 74 | 68 65 20 73 63 72 69 70 |lds.if t|he scrip| |000040e0| 74 20 6f 66 20 62 6b 67 | 6e 64 20 66 69 65 6c 64 |t of bkg|nd field| |000040f0| 20 6a 20 63 6f 6e 74 61 | 69 6e 73 20 70 61 74 74 | j conta|ins patt| |00004100| 65 72 6e 20 c2 0d 6f 72 | 20 70 61 74 74 65 72 6e |ern ..or| pattern| |00004110| 20 69 73 20 22 53 68 6f | 77 20 41 6c 6c 20 53 63 | is "Sho|w All Sc| |00004120| 72 69 70 74 73 22 20 74 | 68 65 6e 20 65 64 69 74 |ripts" t|hen edit| |00004130| 20 73 63 72 69 70 74 20 | 6f 66 20 62 6b 67 6e 64 | script |of bkgnd| |00004140| 20 66 69 65 6c 64 20 6a | 0d 65 6e 64 20 72 65 70 | field j|.end rep| |00004150| 65 61 74 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 0d |eat.end |repeat..| |00004160| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = | |00004170| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number | |00004180| 6f 66 20 63 61 72 64 73 | 0d 67 6f 20 63 61 72 64 |of cards|.go card| |00004190| 20 69 0d 69 66 20 74 68 | 65 20 6f 70 74 69 6f 6e | i.if th|e option| |000041a0| 4b 65 79 20 69 73 20 64 | 6f 77 6e 20 74 68 65 6e |Key is d|own then| |000041b0| 20 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 0d 69 66 | lock sc|reen..if| |000041c0| 20 74 68 65 20 73 63 72 | 69 70 74 20 6f 66 20 74 | the scr|ipt of t| |000041d0| 68 69 73 20 63 61 72 64 | 20 63 6f 6e 74 61 69 6e |his card| contain| |000041e0| 73 20 70 61 74 74 65 72 | 6e 20 c2 0d 6f 72 20 70 |s patter|n ..or p| |000041f0| 61 74 74 65 72 6e 20 69 | 73 20 22 53 68 6f 77 20 |attern i|s "Show | |00004200| 41 6c 6c 20 53 63 72 69 | 70 74 73 22 20 74 68 65 |All Scri|pts" the| |00004210| 6e 20 65 64 69 74 20 73 | 63 72 69 70 74 20 6f 66 |n edit s|cript of| |00004220| 20 74 68 69 73 20 63 61 | 72 64 0d 0d 72 65 70 65 | this ca|rd..repe| |00004230| 61 74 20 77 69 74 68 20 | 6a 20 3d 20 31 20 74 6f |at with |j = 1 to| |00004240| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c| |00004250| 61 72 64 20 62 75 74 74 | 6f 6e 73 0d 69 66 20 74 |ard butt|ons.if t| |00004260| 68 65 20 73 63 72 69 70 | 74 20 6f 66 20 63 61 72 |he scrip|t of car| |00004270| 64 20 62 75 74 74 6f 6e | 20 6a 20 63 6f 6e 74 61 |d button| j conta| |00004280| 69 6e 73 20 70 61 74 74 | 65 72 6e 20 c2 0d 6f 72 |ins patt|ern ..or| |00004290| 20 70 61 74 74 65 72 6e | 20 69 73 20 22 53 68 6f | pattern| is "Sho| |000042a0| 77 20 41 6c 6c 20 53 63 | 72 69 70 74 73 22 20 74 |w All Sc|ripts" t| |000042b0| 68 65 6e 20 65 64 69 74 | 20 73 63 72 69 70 74 20 |hen edit| script | |000042c0| 6f 66 20 63 61 72 64 20 | 62 75 74 74 6f 6e 20 6a |of card |button j| |000042d0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 72 65 70 65 |.end rep|eat.repe| |000042e0| 61 74 20 77 69 74 68 20 | 6a 20 3d 20 31 20 74 6f |at with |j = 1 to| |000042f0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c| |00004300| 61 72 64 20 66 69 65 6c | 64 73 0d 69 66 20 74 68 |ard fiel|ds.if th| |00004310| 65 20 73 63 72 69 70 74 | 20 6f 66 20 63 61 72 64 |e script| of card| |00004320| 20 66 69 65 6c 64 20 6a | 20 63 6f 6e 74 61 69 6e | field j| contain| |00004330| 73 20 70 61 74 74 65 72 | 6e 20 c2 0d 6f 72 20 70 |s patter|n ..or p| |00004340| 61 74 74 65 72 6e 20 69 | 73 20 22 53 68 6f 77 20 |attern i|s "Show | |00004350| 41 6c 6c 20 53 63 72 69 | 70 74 73 22 20 74 68 65 |All Scri|pts" the| |00004360| 6e 20 65 64 69 74 20 73 | 63 72 69 70 74 20 6f 66 |n edit s|cript of| |00004370| 20 63 61 72 64 20 66 69 | 65 6c 64 20 6a 0d 65 6e | card fi|eld j.en| |00004380| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 72 65 70 |d repeat|.end rep| |00004390| 65 61 74 0d 70 6f 70 20 | 63 61 72 64 20 20 20 20 |eat.pop |card | |000043a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |000043b0| 20 20 20 20 20 20 2d 2d | 2d 2d 20 4d 6f 64 69 66 | --|-- Modif| |000043c0| 69 65 64 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |ied by J|oe Rush.| |000043d0| 65 6e 64 20 73 65 61 72 | 63 68 53 63 72 69 70 74 |end sear|chScript| |000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |000043f0| 20 20 20 20 2d 2d 2d 2d | 20 4f 72 69 67 69 6e 61 | ----| Origina| |00004400| 6c 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 62 79 |l Copyri|ght.. by| |00004410| 20 41 70 70 6c 65 0d 2d | 2d 2d 20 31 2d 2d 2d 2d | Apple.-|-- 1----| |00004420| 2d 2d 2d 31 30 2d 2d 2d | 2d 2d 2d 2d 2d 32 30 2d |---10---|-----20-| |00004430| 2d 2d 2d 2d 2d 2d 2d 2d | 33 31 20 2d 2d 2d 2d 0d |--------|31 ----.| |00004440| 6f 6e 20 43 6f 70 79 47 | 72 6f 75 70 69 65 73 46 |on CopyG|roupiesF| |00004450| 6c 64 46 72 6f 6d 48 6f | 6d 65 41 6e 64 50 61 73 |ldFromHo|meAndPas| |00004460| 74 65 0d 0d 73 65 74 20 | 6c 6f 63 6b 4d 65 73 73 |te..set |lockMess| |00004470| 61 67 65 73 20 74 6f 20 | 74 72 75 65 0d 6c 6f 63 |ages to |true.loc| |00004480| 6b 20 73 63 72 65 65 6e | 0d 70 75 73 68 20 74 68 |k screen|.push th| |00004490| 69 73 20 63 61 72 64 0d | 0d 67 6f 20 74 6f 20 63 |is card.|.go to c| |000044a0| 61 72 64 20 31 20 6f 66 | 20 73 74 61 63 6b 20 22 |ard 1 of| stack "| |000044b0| 48 6f 6d 65 22 0d 0d 73 | 65 6c 65 63 74 20 63 61 |Home"..s|elect ca| |000044c0| 72 64 20 66 69 65 6c 64 | 20 22 47 72 6f 75 70 69 |rd field| "Groupi| |000044d0| 65 73 20 46 69 65 6c 64 | 22 0d 64 6f 4d 65 6e 75 |es Field|".doMenu| |000044e0| 20 22 43 6f 70 79 20 46 | 69 65 6c 64 22 0d 0d 70 | "Copy F|ield"..p| |000044f0| 6f 70 20 63 61 72 64 0d | 0d 64 6f 4d 65 6e 75 20 |op card.|.doMenu | |00004500| 22 50 61 73 74 65 20 46 | 69 65 6c 64 22 0d 0d 65 |"Paste F|ield"..e| |00004510| 6e 64 20 43 6f 70 79 47 | 72 6f 75 70 69 65 73 46 |nd CopyG|roupiesF| |00004520| 6c 64 46 72 6f 6d 48 6f | 6d 65 41 6e 64 50 61 73 |ldFromHo|meAndPas| |00004530| 74 65 20 2d 2d 2d 2d 20 | 43 6f 70 79 72 69 67 68 |te ---- |Copyrigh| |00004540| 74 ca a9 20 31 39 38 39 | 2c 20 62 79 20 4a 6f 65 |t.. 1989|, by Joe| |00004550| 20 52 75 73 68 0d 2d 2d | 2d 20 31 2d 2d 2d 2d 2d | Rush.--|- 1-----| |00004560| 2d 2d 31 30 2d 2d 2d 2d | 2d 2d 2d 2d 32 30 2d 2d |--10----|----20--| |00004570| 2d 2d 2d 2d 2d 2d 2d 33 | 31 20 2d 2d 2d 2d 0d 6f |-------3|1 ----.o| |00004580| 6e 20 43 6f 6c 6c 65 63 | 74 48 61 6e 64 6c 65 72 |n Collec|tHandler| |00004590| 73 20 4e 61 6d 65 4f 66 | 4f 62 6a 65 63 74 0d 0d |s NameOf|Object..| |000045a0| 73 65 6e 64 20 22 43 6f | 6c 6c 65 63 74 48 61 6e |send "Co|llectHan| |000045b0| 64 6c 65 72 73 22 20 26 | 26 20 4b 77 6f 74 65 28 |dlers" &|& Kwote(| |000045c0| 4e 61 6d 65 4f 66 4f 62 | 6a 65 63 74 29 20 c2 0d |NameOfOb|ject) ..| |000045d0| 74 6f 20 73 74 61 63 6b | 20 22 43 6f 6c 6c 65 63 |to stack| "Collec| |000045e0| 74 20 48 61 6e 64 6c 65 | 72 73 22 0d 0d 65 6e 64 |t Handle|rs"..end| |000045f0| 20 43 6f 6c 6c 65 63 74 | 48 61 6e 64 6c 65 72 73 | Collect|Handlers| |00004600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00004610| 20 2d 2d 2d 2d 20 43 6f | 70 79 72 69 67 68 74 ca | ---- Co|pyright.| |00004620| a9 20 31 39 38 39 2c 20 | 62 79 20 4a 6f 65 20 52 |. 1989, |by Joe R| |00004630| 75 73 68 0d 2d 2d 2d 20 | 31 2d 2d 2d 2d 2d 2d 2d |ush.--- |1-------| |00004640| 31 30 2d 2d 2d 2d 2d 2d | 2d 2d 32 30 2d 2d 2d 2d |10------|--20----| |00004650| 2d 2d 2d 2d 2d 33 31 20 | 2d 2d 2d 2d 0d 6f 6e 20 |-----31 |----.on | |00004660| 69 64 6c 65 0d 67 6c 6f | 62 61 6c 20 43 6f 6d 6d |idle.glo|bal Comm| |00004670| 61 6e 64 73 54 6f 44 6f | 4f 6e 49 64 6c 65 2c 20 |andsToDo|OnIdle, | |00004680| 57 65 57 61 6e 74 54 6f | 44 69 73 70 6c 61 79 43 |WeWantTo|DisplayC| |00004690| 6f 6d 6d 61 6e 64 73 0d | 0d 69 66 20 43 6f 6d 6d |ommands.|.if Comm| |000046a0| 61 6e 64 73 54 6f 44 6f | 4f 6e 49 64 6c 65 20 69 |andsToDo|OnIdle i| |000046b0| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then| |000046c0| 0d 2d 2d 20 20 73 65 6e | 64 20 22 44 6f 31 4c 69 |.-- sen|d "Do1Li| |000046d0| 6e 65 4f 66 54 68 65 43 | 6f 6d 6d 61 6e 64 46 69 |neOfTheC|ommandFi| |000046e0| 6c 65 22 20 74 6f 20 73 | 74 61 63 6b 20 22 43 6f |le" to s|tack "Co| |000046f0| 6d 6d 61 6e 64 20 46 69 | 6c 65 73 22 0d 44 6f 31 |mmand Fi|les".Do1| |00004700| 4c 69 6e 65 4f 66 54 68 | 65 43 6f 6d 6d 61 6e 64 |LineOfTh|eCommand| |00004710| 46 69 6c 65 20 2d 2d 20 | 3e 32 20 54 49 4d 45 53 |File -- |>2 TIMES| |00004720| 20 46 41 53 54 45 52 20 | 54 4f 20 44 4f 20 49 54 | FASTER |TO DO IT| |00004730| 20 49 4e 20 54 48 45 20 | 48 4f 4d 45 20 53 54 41 | IN THE |HOME STA| |00004740| 43 4b 0d 0d 65 6c 73 65 | 20 70 75 74 20 65 6d 70 |CK..else| put emp| |00004750| 74 79 20 69 6e 74 6f 20 | 57 65 57 61 6e 74 54 6f |ty into |WeWantTo| |00004760| 44 69 73 70 6c 61 79 43 | 6f 6d 6d 61 6e 64 73 0d |DisplayC|ommands.| |00004770| 2d 2d 70 61 73 73 20 69 | 64 6c 65 0d 65 6e 64 20 |--pass i|dle.end | |00004780| 69 64 6c 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |idle | | |00004790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |000047a0| 2d 2d 2d 2d 20 43 6f 70 | 79 72 69 67 68 74 ca a9 |---- Cop|yright..| |000047b0| 20 31 39 38 39 2c 20 62 | 79 20 4a 6f 65 20 52 75 | 1989, b|y Joe Ru| |000047c0| 73 68 0d 2d 2d 2d 20 31 | 2d 2d 2d 2d 2d 2d 2d 31 |sh.--- 1|-------1| |000047d0| 30 2d 2d 2d 2d 2d 2d 2d | 2d 32 30 2d 2d 2d 2d 2d |0-------|-20-----| |000047e0| 2d 2d 2d 2d 33 31 20 2d | 2d 2d 2d 20 70 61 73 73 |----31 -|--- pass| |000047f0| 20 3f 20 2d 2d 2d 2d 0d | 6f 6e 20 44 6f 31 4c 69 | ? ----.|on Do1Li| |00004800| 6e 65 4f 66 54 68 65 43 | 6f 6d 6d 61 6e 64 46 69 |neOfTheC|ommandFi| |00004810| 6c 65 0d 67 6c 6f 62 61 | 6c 20 43 6f 6d 6d 61 6e |le.globa|l Comman| |00004820| 64 73 54 6f 44 6f 4f 6e | 49 64 6c 65 2c 20 57 65 |dsToDoOn|Idle, We| |00004830| 57 61 6e 74 54 6f 44 69 | 73 70 6c 61 79 43 6f 6d |WantToDi|splayCom| |00004840| 6d 61 6e 64 73 0d 0d 69 | 66 20 57 65 57 61 6e 74 |mands..i|f WeWant| |00004850| 54 6f 44 69 73 70 6c 61 | 79 43 6f 6d 6d 61 6e 64 |ToDispla|yCommand| |00004860| 73 20 69 73 20 65 6d 70 | 74 79 0d 74 68 65 6e 20 |s is emp|ty.then | |00004870| 73 65 6e 64 20 22 41 73 | 6b 48 6f 77 57 65 57 61 |send "As|kHowWeWa| |00004880| 6e 74 54 6f 44 69 73 70 | 6c 61 79 54 68 69 6e 67 |ntToDisp|layThing| |00004890| 73 22 20 74 6f 20 73 74 | 61 63 6b 20 22 43 6f 6d |s" to st|ack "Com| |000048a0| 6d 61 6e 64 20 46 69 6c | 65 73 22 0d 0d 70 75 74 |mand Fil|es"..put| |000048b0| 20 20 20 20 6c 69 6e 65 | 20 31 20 6f 66 20 43 6f | line| 1 of Co| |000048c0| 6d 6d 61 6e 64 73 54 6f | 44 6f 4f 6e 49 64 6c 65 |mmandsTo|DoOnIdle| |000048d0| 20 20 69 6e 74 6f 20 20 | 54 68 65 43 6f 6d 6d 61 | into |TheComma| |000048e0| 6e 64 0d 64 65 6c 65 74 | 65 20 6c 69 6e 65 20 31 |nd.delet|e line 1| |000048f0| 20 6f 66 20 43 6f 6d 6d | 61 6e 64 73 54 6f 44 6f | of Comm|andsToDo| |00004900| 4f 6e 49 64 6c 65 0d 0d | 69 66 20 57 65 57 61 6e |OnIdle..|if WeWan| |00004910| 74 54 6f 44 69 73 70 6c | 61 79 43 6f 6d 6d 61 6e |tToDispl|ayComman| |00004920| 64 73 20 74 68 65 6e 0d | 70 75 74 20 54 68 65 43 |ds then.|put TheC| |00004930| 6f 6d 6d 61 6e 64 20 c2 | 0d 26 26 20 22 2d 2d 20 |ommand .|.&& "-- | |00004940| 50 52 45 53 53 20 74 68 | 65 20 6f 70 74 69 6f 6e |PRESS th|e option| |00004950| 4b 65 79 20 54 4f 20 48 | 41 4c 54 2c 20 73 68 69 |Key TO H|ALT, shi| |00004960| 66 74 4b 65 79 20 54 4f | 20 46 52 45 45 5a 45 22 |ftKey TO| FREEZE"| |00004970| 0d 0d 77 61 69 74 20 20 | 38 30 20 74 69 63 6b 73 |..wait |80 ticks| |00004980| 0d 77 61 69 74 20 20 75 | 6e 74 69 6c 20 74 68 65 |.wait u|ntil the| |00004990| 20 73 68 69 66 74 4b 65 | 79 20 69 73 20 75 70 0d | shiftKe|y is up.| |000049a0| 0d 68 69 64 65 20 6d 65 | 73 73 61 67 65 20 62 6f |.hide me|ssage bo| |000049b0| 78 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 20 74 68 |x.end if|..if th| |000049c0| 65 20 6f 70 74 69 6f 6e | 4b 65 79 20 69 73 20 75 |e option|Key is u| |000049d0| 70 20 20 74 68 65 6e 0d | 77 61 69 74 20 75 6e 74 |p then.|wait unt| |000049e0| 69 6c 20 74 68 65 20 73 | 68 69 66 74 4b 65 79 20 |il the s|hiftKey | |000049f0| 69 73 20 75 70 0d 73 65 | 6e 64 20 54 68 65 43 6f |is up.se|nd TheCo| |00004a00| 6d 6d 61 6e 64 20 74 6f | 20 74 68 69 73 20 63 61 |mmand to| this ca| |00004a10| 72 64 0d 69 66 20 74 68 | 65 20 73 65 6c 65 63 74 |rd.if th|e select| |00004a20| 65 64 43 68 75 6e 6b 20 | 69 73 20 65 6d 70 74 79 |edChunk |is empty| |00004a30| 20 74 68 65 6e 0d 63 68 | 6f 6f 73 65 20 62 72 6f | then.ch|oose bro| |00004a40| 77 73 65 20 74 6f 6f 6c | 0d 65 6e 64 20 69 66 0d |wse tool|.end if.| |00004a50| 0d 65 6c 73 65 20 70 75 | 74 20 65 6d 70 74 79 20 |.else pu|t empty | |00004a60| 69 6e 74 6f 20 43 6f 6d | 6d 61 6e 64 73 54 6f 44 |into Com|mandsToD| |00004a70| 6f 4f 6e 49 64 6c 65 0d | 0d 65 6e 64 20 44 6f 31 |oOnIdle.|.end Do1| |00004a80| 4c 69 6e 65 4f 66 54 68 | 65 43 6f 6d 6d 61 6e 64 |LineOfTh|eCommand| |00004a90| 46 69 6c 65 20 20 20 20 | 20 20 20 20 20 2d 2d 2d |File | ---| |00004aa0| 2d 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 31 39 |- Copyri|ght.. 19| |00004ab0| 38 39 2c 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |89, by J|oe Rush.| |00004ac0| 2d 2d 2d 20 31 2d 2d 2d | 2d 2d 2d 2d 31 30 2d 2d |--- 1---|----10--| |00004ad0| 2d 2d 2d 2d 2d 2d 32 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------20|--------| |00004ae0| 2d 33 31 20 2d 2d 2d 2d | 20 70 61 73 73 20 3f 20 |-31 ----| pass ? | |00004af0| 2d 2d 2d 2d 0d 6f 6e 20 | 61 6e 73 77 65 72 20 54 |----.on |answer T| |00004b00| 65 78 74 53 74 72 69 6e | 67 2c 20 44 75 6d 6d 79 |extStrin|g, Dummy| |00004b10| 31 2c 20 41 6e 73 77 65 | 72 31 2c 20 44 75 6d 6d |1, Answe|r1, Dumm| |00004b20| 79 32 2c 20 41 6e 73 77 | 65 72 32 2c 20 44 75 6d |y2, Answ|er2, Dum| |00004b30| 6d 79 33 2c 20 41 6e 73 | 77 65 72 33 0d 67 6c 6f |my3, Ans|wer3.glo| |00004b40| 62 61 6c 20 43 6f 6d 6d | 61 6e 64 73 54 6f 44 6f |bal Comm|andsToDo| |00004b50| 4f 6e 49 64 6c 65 0d 0d | 69 66 20 77 6f 72 64 20 |OnIdle..|if word | |00004b60| 31 20 6f 66 20 43 6f 6d | 6d 61 6e 64 73 54 6f 44 |1 of Com|mandsToD| |00004b70| 6f 4f 6e 49 64 6c 65 20 | 69 73 20 6e 6f 74 20 65 |oOnIdle |is not e| |00004b80| 6d 70 74 79 20 74 68 65 | 6e 0d 73 65 74 20 6c 6f |mpty the|n.set lo| |00004b90| 63 6b 4d 65 73 73 61 67 | 65 73 20 74 6f 20 74 72 |ckMessag|es to tr| |00004ba0| 75 65 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 67 |ue.lock |screen.g| |00004bb0| 6f 20 74 6f 20 63 61 72 | 64 20 22 43 75 73 74 6f |o to car|d "Custo| |00004bc0| 6d 41 6e 73 77 65 72 22 | 20 6f 66 20 73 74 61 63 |mAnswer"| of stac| |00004bd0| 6b 20 22 43 6f 6d 6d 61 | 6e 64 20 46 69 6c 65 73 |k "Comma|nd Files| |00004be0| 22 0d 69 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |".if the| result | |00004bf0| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 73 65 |is empty| then.se| |00004c00| 6e 64 20 22 43 75 73 74 | 6f 6d 41 6e 73 77 65 72 |nd "Cust|omAnswer| |00004c10| 20 54 65 78 74 53 74 72 | 69 6e 67 2c 20 41 6e 73 | TextStr|ing, Ans| |00004c20| 77 65 72 31 2c 20 41 6e | 73 77 65 72 32 2c 20 41 |wer1, An|swer2, A| |00004c30| 6e 73 77 65 72 33 22 20 | 74 6f 20 63 61 72 64 0d |nswer3" |to card.| |00004c40| 65 6c 73 65 0d 73 65 74 | 20 6c 6f 63 6b 4d 65 73 |else.set| lockMes| |00004c50| 73 61 67 65 73 20 74 6f | 20 66 61 6c 73 65 0d 75 |sages to| false.u| |00004c60| 6e 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 70 61 73 |nlock sc|reen.pas| |00004c70| 73 20 61 6e 73 77 65 72 | 0d 65 6e 64 20 69 66 0d |s answer|.end if.| |00004c80| 0d 65 6c 73 65 20 70 61 | 73 73 20 61 6e 73 77 65 |.else pa|ss answe| |00004c90| 72 0d 65 6e 64 20 61 6e | 73 77 65 72 20 20 20 20 |r.end an|swer | |00004ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00004cb0| 20 20 20 20 20 20 2d 2d | 2d 2d 20 43 6f 70 79 72 | --|-- Copyr| |00004cc0| 69 67 68 74 ca a9 20 31 | 39 38 39 2c 20 62 79 20 |ight.. 1|989, by | |00004cd0| 4a 6f 65 20 52 75 73 68 | 0d 2d 2d 2d 20 31 2d 2d |Joe Rush|.--- 1--| |00004ce0| 2d 2d 2d 2d 2d 31 30 2d | 2d 2d 2d 2d 2d 2d 2d 32 |-----10-|-------2| |00004cf0| 30 2d 2d 2d 2d 2d 2d 2d | 2d 2d 33 31 20 2d 2d 2d |0-------|--31 ---| |00004d00| 2d 20 70 61 73 73 20 3f | 20 2d 2d 2d 2d 0d 6f 6e |- pass ?| ----.on| |00004d10| 20 61 73 6b 20 44 75 6d | 6d 79 56 61 72 69 61 62 | ask Dum|myVariab| |00004d20| 6c 65 31 2c 20 54 65 78 | 74 53 74 72 69 6e 67 2c |le1, Tex|tString,| |00004d30| 20 57 69 74 68 44 75 6d | 6d 79 56 61 72 69 61 62 | WithDum|myVariab| |00004d40| 6c 65 2c 20 57 69 74 68 | 44 65 66 61 75 6c 74 54 |le, With|DefaultT| |00004d50| 65 78 74 0d 67 6c 6f 62 | 61 6c 20 43 6f 6d 6d 61 |ext.glob|al Comma| |00004d60| 6e 64 73 54 6f 44 6f 4f | 6e 49 64 6c 65 0d 0d 69 |ndsToDoO|nIdle..i| |00004d70| 66 20 77 6f 72 64 20 31 | 20 6f 66 20 43 6f 6d 6d |f word 1| of Comm| |00004d80| 61 6e 64 73 54 6f 44 6f | 4f 6e 49 64 6c 65 20 69 |andsToDo|OnIdle i| |00004d90| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then| |00004da0| 0d 73 65 74 20 6c 6f 63 | 6b 4d 65 73 73 61 67 65 |.set loc|kMessage| |00004db0| 73 20 74 6f 20 74 72 75 | 65 0d 6c 6f 63 6b 20 73 |s to tru|e.lock s| |00004dc0| 63 72 65 65 6e 0d 67 6f | 20 74 6f 20 63 61 72 64 |creen.go| to card| |00004dd0| 20 22 43 75 73 74 6f 6d | 41 73 6b 22 20 6f 66 20 | "Custom|Ask" of | |00004de0| 73 74 61 63 6b 20 22 43 | 6f 6d 6d 61 6e 64 20 46 |stack "C|ommand F| |00004df0| 69 6c 65 73 22 0d 69 66 | 20 74 68 65 20 72 65 73 |iles".if| the res| |00004e00| 75 6c 74 20 69 73 20 65 | 6d 70 74 79 20 74 68 65 |ult is e|mpty the| |00004e10| 6e 0d 73 65 6e 64 20 22 | 43 75 73 74 6f 6d 41 73 |n.send "|CustomAs| |00004e20| 6b 20 54 65 78 74 53 74 | 72 69 6e 67 2c 20 57 69 |k TextSt|ring, Wi| |00004e30| 74 68 44 65 66 61 75 6c | 74 54 65 78 74 22 20 74 |thDefaul|tText" t| |00004e40| 6f 20 74 68 69 73 20 63 | 61 72 64 0d 65 6c 73 65 |o this c|ard.else| |00004e50| 0d 73 65 74 20 6c 6f 63 | 6b 4d 65 73 73 61 67 65 |.set loc|kMessage| |00004e60| 73 20 74 6f 20 66 61 6c | 73 65 0d 75 6e 6c 6f 63 |s to fal|se.unloc| |00004e70| 6b 20 73 63 72 65 65 6e | 0d 70 61 73 73 20 61 73 |k screen|.pass as| |00004e80| 6b 0d 65 6e 64 20 69 66 | 0d 0d 65 6c 73 65 20 20 |k.end if|..else | |00004e90| 20 20 20 70 61 73 73 20 | 61 73 6b 0d 65 6e 64 20 | pass |ask.end | |00004ea0| 61 73 6b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ask | | |00004eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00004ec0| 2d 2d 2d 2d 20 43 6f 70 | 79 72 69 67 68 74 ca a9 |---- Cop|yright..| |00004ed0| 20 31 39 38 39 2c 20 62 | 79 20 4a 6f 65 20 52 75 | 1989, b|y Joe Ru| |00004ee0| 73 68 0d 2d 2d 2d 20 31 | 2d 2d 2d 2d 2d 2d 2d 31 |sh.--- 1|-------1| |00004ef0| 30 2d 2d 2d 2d 2d 2d 2d | 2d 32 30 2d 2d 2d 2d 2d |0-------|-20-----| |00004f00| 2d 2d 2d 2d 33 31 20 2d | 2d 2d 2d 20 70 61 73 73 |----31 -|--- pass| |00004f10| 20 3f 20 2d 2d 2d 2d 0d | 66 75 6e 63 74 69 6f 6e | ? ----.|function| |00004f20| 20 4c 6f 63 61 74 69 6f | 6e 4f 66 54 65 72 6d 49 | Locatio|nOfTermI| |00004f30| 6e 42 6b 67 6e 64 46 69 | 65 6c 64 20 54 65 72 6d |nBkgndFi|eld Term| |00004f40| 2c 20 46 69 65 6c 64 4e | 61 6d 65 0d 67 6c 6f 62 |, FieldN|ame.glob| |00004f50| 61 6c 20 4c 6f 63 61 74 | 69 6f 6e 4f 66 54 65 72 |al Locat|ionOfTer| |00004f60| 6d 49 6e 46 69 65 6c 64 | 0d 0d 73 65 6e 64 20 20 |mInField|..send | |00004f70| 22 47 65 74 4c 6f 63 61 | 74 69 6f 6e 4f 66 54 65 |"GetLoca|tionOfTe| |00004f80| 72 6d 49 6e 42 6b 67 6e | 64 46 69 65 6c 64 22 20 |rmInBkgn|dField" | |00004f90| 26 26 20 4b 77 6f 74 65 | 28 54 65 72 6d 29 20 26 |&& Kwote|(Term) &| |00004fa0| 20 22 2c 22 20 c2 0d 26 | 26 20 20 20 20 20 20 20 | "," ..&|& | |00004fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00004fc0| 20 20 4b 77 6f 74 65 28 | 46 69 65 6c 64 4e 61 6d | Kwote(|FieldNam| |00004fd0| 65 29 20 20 74 6f 20 73 | 74 61 63 6b 20 22 43 6f |e) to s|tack "Co| |00004fe0| 6d 6d 61 6e 64 20 46 69 | 6c 65 73 22 0d 0d 72 65 |mmand Fi|les"..re| |00004ff0| 74 75 72 6e 20 4c 6f 63 | 61 74 69 6f 6e 4f 66 54 |turn Loc|ationOfT| |00005000| 65 72 6d 49 6e 46 69 65 | 6c 64 0d 65 6e 64 20 4c |ermInFie|ld.end L| |00005010| 6f 63 61 74 69 6f 6e 4f | 66 54 65 72 6d 49 6e 42 |ocationO|fTermInB| |00005020| 6b 67 6e 64 46 69 65 6c | 64 20 20 20 20 20 20 2d |kgndFiel|d -| |00005030| 2d 2d 2d 20 43 6f 70 79 | 72 69 67 68 74 ca a9 20 |--- Copy|right.. | |00005040| 31 39 38 39 2c 20 62 79 | 20 4a 6f 65 20 52 75 73 |1989, by| Joe Rus| |00005050| 68 0d 2d 2d 2d 20 31 2d | 2d 2d 2d 2d 2d 2d 31 30 |h.--- 1-|------10| |00005060| 2d 2d 2d 2d 2d 2d 2d 2d | 32 30 2d 2d 2d 2d 2d 2d |--------|20------| |00005070| 2d 2d 2d 33 31 20 2d 2d | 2d 2d 0d 66 75 6e 63 74 |---31 --|--.funct| |00005080| 69 6f 6e 20 4c 6f 63 61 | 74 69 6f 6e 4f 66 54 65 |ion Loca|tionOfTe| |00005090| 72 6d 49 6e 43 61 72 64 | 46 69 65 6c 64 20 54 65 |rmInCard|Field Te| |000050a0| 72 6d 2c 20 46 69 65 6c | 64 4e 61 6d 65 0d 67 6c |rm, Fiel|dName.gl| |000050b0| 6f 62 61 6c 20 4c 6f 63 | 61 74 69 6f 6e 4f 66 54 |obal Loc|ationOfT| |000050c0| 65 72 6d 49 6e 46 69 65 | 6c 64 0d 0d 73 65 6e 64 |ermInFie|ld..send| |000050d0| 20 20 22 47 65 74 4c 6f | 63 61 74 69 6f 6e 4f 66 | "GetLo|cationOf| |000050e0| 54 65 72 6d 49 6e 43 61 | 72 64 46 69 65 6c 64 22 |TermInCa|rdField"| |000050f0| 20 26 26 20 4b 77 6f 74 | 65 28 54 65 72 6d 29 20 | && Kwot|e(Term) | |00005100| 26 20 22 2c 22 20 c2 0d | 26 26 20 20 20 20 20 20 |& "," ..|&& | |00005110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00005120| 20 20 20 4b 77 6f 74 65 | 28 46 69 65 6c 64 4e 61 | Kwote|(FieldNa| |00005130| 6d 65 29 20 20 74 6f 20 | 73 74 61 63 6b 20 22 43 |me) to |stack "C| |00005140| 6f 6d 6d 61 6e 64 20 46 | 69 6c 65 73 22 0d 0d 72 |ommand F|iles"..r| |00005150| 65 74 75 72 6e 20 4c 6f | 63 61 74 69 6f 6e 4f 66 |eturn Lo|cationOf| |00005160| 54 65 72 6d 49 6e 46 69 | 65 6c 64 0d 65 6e 64 20 |TermInFi|eld.end | |00005170| 4c 6f 63 61 74 69 6f 6e | 4f 66 54 65 72 6d 49 6e |Location|OfTermIn| |00005180| 43 61 72 64 46 69 65 6c | 64 20 20 20 20 20 20 2d |CardFiel|d -| |00005190| 2d 2d 2d 20 43 6f 70 79 | 72 69 67 68 74 ca a9 20 |--- Copy|right.. | |000051a0| 31 39 38 39 2c 20 62 79 | 20 4a 6f 65 20 52 75 73 |1989, by| Joe Rus| |000051b0| 68 0d 2d 2d 2d 20 31 2d | 2d 2d 2d 2d 2d 2d 31 30 |h.--- 1-|------10| |000051c0| 2d 2d 2d 2d 2d 2d 2d 2d | 32 30 2d 2d 2d 2d 2d 2d |--------|20------| |000051d0| 2d 2d 2d 33 31 20 2d 2d | 2d 2d 0d 66 75 6e 63 74 |---31 --|--.funct| |000051e0| 69 6f 6e 20 54 65 78 74 | 4f 66 4c 69 6e 65 41 74 |ion Text|OfLineAt| |000051f0| 4d 6f 75 73 65 4c 6f 63 | 61 74 69 6f 6e 20 46 69 |MouseLoc|ation Fi| |00005200| 65 6c 64 4e 61 6d 65 4f | 72 4e 75 6d 62 65 72 0d |eldNameO|rNumber.| |00005210| 2d 2d 2d 20 6d 75 63 68 | 20 62 65 74 74 65 72 20 |--- much| better | |00005220| 74 68 61 6e 20 63 6c 69 | 63 6b 4c 69 6e 65 20 28 |than cli|ckLine (| |00005230| 69 66 20 79 6f 75 20 61 | 72 65 20 66 61 6d 69 6c |if you a|re famil| |00005240| 69 61 72 20 77 69 74 68 | 20 74 68 61 74 20 73 63 |iar with| that sc| |00005250| 72 69 70 74 29 2e 0d 2d | 2d 2d 20 77 6f 72 6b 73 |ript)..-|-- works| |00005260| 20 77 69 74 68 20 61 6c | 6c 20 66 69 65 6c 64 73 | with al|l fields| |00005270| 2c 20 69 6e 63 6c 75 64 | 69 6e 67 20 73 63 72 6f |, includ|ing scro| |00005280| 6c 6c 61 62 6c 65 20 66 | 69 65 6c 64 73 2c 0d 2d |llable f|ields,.-| |00005290| 2d 2d 20 61 6e 64 20 77 | 6f 72 6b 73 20 72 65 67 |-- and w|orks reg| |000052a0| 61 72 64 6c 65 73 73 20 | 6f 66 20 77 69 64 65 4d |ardless |of wideM| |000052b0| 61 72 67 69 6e 73 2c 20 | 74 65 78 74 48 65 69 67 |argins, |textHeig| |000052c0| 68 74 20 6f 72 20 66 69 | 65 6c 64 20 6c 6f 63 61 |ht or fi|eld loca| |000052d0| 74 69 6f 6e 2e 0d 2d 2d | 2d 20 20 20 20 20 20 20 |tion..--|- | |000052e0| 20 49 54 20 44 4f 45 53 | 20 52 45 51 55 49 52 45 | IT DOES| REQUIRE| |000052f0| 20 54 48 41 54 20 4e 4f | 20 4c 49 4e 45 20 4f 46 | THAT NO| LINE OF| |00005300| 20 54 45 58 54 20 57 52 | 41 50 20 41 52 52 4f 55 | TEXT WR|AP ARROU| |00005310| 4e 44 0d 67 6c 6f 62 61 | 6c 20 4c 69 6e 65 4e 75 |ND.globa|l LineNu| |00005320| 6d 62 65 72 0d 0d 70 75 | 74 20 74 68 65 20 63 6c |mber..pu|t the cl| |00005330| 69 63 6b 56 20 69 6e 74 | 6f 20 54 68 65 49 6e 69 |ickV int|o TheIni| |00005340| 74 69 61 6c 4d 6f 75 73 | 65 56 0d 2d 2d 2d 20 4c |tialMous|eV.--- L| |00005350| 6f 63 61 74 69 6f 6e 4f | 66 54 65 72 6d 49 6e 43 |ocationO|fTermInC| |00005360| 61 72 64 46 69 65 6c 64 | 20 52 45 51 55 49 52 45 |ardField| REQUIRE| |00005370| 53 20 74 68 65 20 63 6c | 69 63 6b 56 0d 2d 2d 2d |S the cl|ickV.---| |00005380| 20 55 53 45 20 74 68 65 | 20 6d 6f 75 73 65 56 20 | USE the| mouseV | |00005390| 57 49 54 48 20 22 6f 6e | 20 6d 6f 75 73 65 44 6f |WITH "on| mouseDo| |000053a0| 77 6e 22 20 4f 52 20 22 | 6f 6e 20 6d 6f 75 73 65 |wn" OR "|on mouse| |000053b0| 55 70 22 0d 0d 69 66 20 | 46 69 65 6c 64 4e 61 6d |Up"..if |FieldNam| |000053c0| 65 4f 72 4e 75 6d 62 65 | 72 20 69 73 20 65 6d 70 |eOrNumbe|r is emp| |000053d0| 74 79 0d 74 68 65 6e 20 | 70 75 74 20 74 68 65 20 |ty.then |put the | |000053e0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 74 61 72 67 |name of |the targ| |000053f0| 65 74 20 69 6e 74 6f 20 | 46 69 65 6c 64 4e 61 6d |et into |FieldNam| |00005400| 65 4f 72 4e 75 6d 62 65 | 72 0d 0d 69 66 20 74 68 |eOrNumbe|r..if th| |00005410| 65 20 77 69 64 65 4d 61 | 72 67 69 6e 73 20 6f 66 |e wideMa|rgins of| |00005420| 20 46 69 65 6c 64 4e 61 | 6d 65 4f 72 4e 75 6d 62 | FieldNa|meOrNumb| |00005430| 65 72 20 69 73 20 74 72 | 75 65 0d 74 68 65 6e 20 |er is tr|ue.then | |00005440| 70 75 74 20 34 20 69 6e | 74 6f 20 57 69 64 74 68 |put 4 in|to Width| |00005450| 4f 66 4d 61 72 67 69 6e | 0d 65 6c 73 65 20 70 75 |OfMargin|.else pu| |00005460| 74 20 30 20 69 6e 74 6f | 20 57 69 64 74 68 4f 66 |t 0 into| WidthOf| |00005470| 4d 61 72 67 69 6e 0d 0d | 70 75 74 20 28 20 54 68 |Margin..|put ( Th| |00005480| 65 49 6e 69 74 69 61 6c | 4d 6f 75 73 65 56 20 2b |eInitial|MouseV +| |00005490| 20 54 68 65 53 63 72 6f | 6c 6c 56 61 6c 75 65 4f | TheScro|llValueO| |000054a0| 66 28 46 69 65 6c 64 4e | 61 6d 65 4f 72 4e 75 6d |f(FieldN|ameOrNum| |000054b0| 62 65 72 29 20 20 c2 0d | 2d 20 20 20 20 20 20 20 |ber) ..|- | |000054c0| 20 20 20 20 20 74 68 65 | 20 74 6f 70 20 6f 66 20 | the| top of | |000054d0| 46 69 65 6c 64 4e 61 6d | 65 4f 72 4e 75 6d 62 65 |FieldNam|eOrNumbe| |000054e0| 72 20 2d 20 57 69 64 74 | 68 4f 66 4d 61 72 67 69 |r - Widt|hOfMargi| |000054f0| 6e 20 20 29 20 20 c2 0d | 64 69 76 20 74 65 78 74 |n ) ..|div text| |00005500| 48 65 69 67 68 74 20 6f | 66 20 46 69 65 6c 64 4e |Height o|f FieldN| |00005510| 61 6d 65 4f 72 4e 75 6d | 62 65 72 20 20 20 20 20 |ameOrNum|ber | |00005520| 20 20 20 20 20 20 20 20 | 20 20 2b 20 20 20 31 20 | | + 1 | |00005530| 20 20 20 20 20 20 c2 0d | 69 6e 74 6f 20 4c 69 6e | ..|into Lin| |00005540| 65 4e 75 6d 62 65 72 0d | 69 66 20 20 20 4c 69 6e |eNumber.|if Lin| |00005550| 65 4e 75 6d 62 65 72 20 | 3c 20 31 20 20 20 74 68 |eNumber |< 1 th| |00005560| 65 6e 20 70 75 74 20 31 | 20 69 6e 74 6f 20 4c 69 |en put 1| into Li| |00005570| 6e 65 4e 75 6d 62 65 72 | 0d 0d 2d 2d 20 59 4f 55 |neNumber|..-- YOU| |00005580| 20 43 41 4e 20 22 73 65 | 6c 65 63 74 20 6c 69 6e | CAN "se|lect lin| |00005590| 65 20 4c 69 6e 65 4e 75 | 6d 62 65 72 20 6f 66 20 |e LineNu|mber of | |000055a0| 46 69 65 6c 64 4e 61 6d | 65 4f 72 4e 75 6d 62 65 |FieldNam|eOrNumbe| |000055b0| 72 22 20 42 55 54 20 49 | 54 53 20 53 4c 4f 57 0d |r" BUT I|TS SLOW.| |000055c0| 72 65 74 75 72 6e 20 6c | 69 6e 65 20 4c 69 6e 65 |return l|ine Line| |000055d0| 4e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 76 61 |Number o|f the va| |000055e0| 6c 75 65 20 6f 66 20 46 | 69 65 6c 64 4e 61 6d 65 |lue of F|ieldName| |000055f0| 4f 72 4e 75 6d 62 65 72 | 0d 65 6e 64 20 54 65 78 |OrNumber|.end Tex| |00005600| 74 4f 66 4c 69 6e 65 41 | 74 4d 6f 75 73 65 4c 6f |tOfLineA|tMouseLo| |00005610| 63 61 74 69 6f 6e 20 20 | 20 20 20 20 20 2d 2d 2d |cation | ---| |00005620| 2d 20 43 6f 70 79 72 69 | 67 68 74 ca a9 20 31 39 |- Copyri|ght.. 19| |00005630| 38 39 2c 20 62 79 20 4a | 6f 65 20 52 75 73 68 0d |89, by J|oe Rush.| |00005640| 2d 2d 2d 20 31 2d 2d 2d | 2d 2d 2d 2d 31 30 2d 2d |--- 1---|----10--| |00005650| 2d 2d 2d 2d 2d 2d 32 30 | 2d 2d 2d 2d 2d 2d 2d 2d |------20|--------| |00005660| 2d 33 31 20 2d 2d 2d 2d | 0d 66 75 6e 63 74 69 6f |-31 ----|.functio| |00005670| 6e 20 54 68 65 53 63 72 | 6f 6c 6c 56 61 6c 75 65 |n TheScr|ollValue| |00005680| 4f 66 20 46 69 65 6c 64 | 4e 61 6d 65 4f 72 4e 75 |Of Field|NameOrNu| |00005690| 6d 62 65 72 0d 0d 69 66 | 20 20 20 20 20 20 20 20 |mber..if| | |000056a0| 74 68 65 20 73 74 79 6c | 65 20 6f 66 20 46 69 65 |the styl|e of Fie| |000056b0| 6c 64 4e 61 6d 65 4f 72 | 4e 75 6d 62 65 72 20 20 |ldNameOr|Number | |000056c0| 69 73 20 20 20 22 73 63 | 72 6f 6c 6c 69 6e 67 22 |is "sc|rolling"| |000056d0| 0d 74 68 65 6e 20 70 75 | 74 20 74 68 65 20 73 63 |.then pu|t the sc| |000056e0| 72 6f 6c 6c 20 6f 66 20 | 46 69 65 6c 64 4e 61 6d |roll of |FieldNam| |000056f0| 65 4f 72 4e 75 6d 62 65 | 72 20 69 6e 74 6f 20 54 |eOrNumbe|r into T| |00005700| 68 65 53 63 72 6f 6c 6c | 56 61 6c 75 65 0d 65 6c |heScroll|Value.el| |00005710| 73 65 20 70 75 74 20 20 | 20 20 20 20 30 20 20 20 |se put | 0 | |00005720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00005730| 20 20 20 20 20 20 20 69 | 6e 74 6f 20 54 68 65 53 | i|nto TheS| |00005740| 63 72 6f 6c 6c 56 61 6c | 75 65 0d 72 65 74 75 72 |crollVal|ue.retur| |00005750| 6e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n | | |00005760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00005770| 20 20 20 20 20 20 20 20 | 20 54 68 65 53 63 72 6f | | TheScro| |00005780| 6c 6c 56 61 6c 75 65 0d | 65 6e 64 20 54 68 65 53 |llValue.|end TheS| |00005790| 63 72 6f 6c 6c 56 61 6c | 75 65 4f 66 20 20 20 20 |crollVal|ueOf | |000057a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 2d | | ----| |000057b0| 20 43 6f 70 79 72 69 67 | 68 74 ca a9 20 31 39 38 | Copyrig|ht.. 198| |000057c0| 39 2c 20 62 79 20 4a 6f | 65 20 52 75 73 68 0d 2d |9, by Jo|e Rush.-| |000057d0| 2d 2d 20 31 2d 2d 2d 2d | 2d 2d 2d 31 30 2d 2d 2d |-- 1----|---10---| |000057e0| 2d 2d 2d 2d 2d 32 30 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-----20-|--------| |000057f0| 33 31 20 2d 2d 2d 2d 0d | 66 75 6e 63 74 69 6f 6e |31 ----.|function| |00005800| 20 4b 77 6f 74 65 20 20 | 20 54 65 78 74 54 6f 50 | Kwote | TextToP| |00005810| 75 74 49 6e 51 75 6f 74 | 65 73 0d 0d 0d 72 65 74 |utInQuot|es...ret| |00005820| 75 72 6e 20 71 75 6f 74 | 65 20 26 20 54 65 78 74 |urn quot|e & Text| |00005830| 54 6f 50 75 74 49 6e 51 | 75 6f 74 65 73 20 26 20 |ToPutInQ|uotes & | |00005840| 71 75 6f 74 65 0d 0d 65 | 6e 64 20 4b 77 6f 74 65 |quote..e|nd Kwote| |00005850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00005860| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 20 | | ---- | |00005870| 43 6f 70 79 72 69 67 68 | 74 ca a9 20 31 39 38 39 |Copyrigh|t.. 1989| |00005880| 2c 20 62 79 20 4a 6f 65 | 20 52 75 73 68 0d 2d 2d |, by Joe| Rush.--| |00005890| 2d 20 31 2d 2d 2d 2d 2d | 2d 2d 31 30 2d 2d 2d 2d |- 1-----|--10----| |000058a0| 2d 2d 2d 2d 32 30 2d 2d | 2d 2d 2d 2d 2d 2d 2d 33 |----20--|-------3| |000058b0| 31 20 2d 2d 2d 2d 0d 6f | 6e 20 53 74 6f 70 57 61 |1 ----.o|n StopWa| |000058c0| 74 63 68 53 74 61 72 74 | 54 69 6d 69 6e 67 0d 67 |tchStart|Timing.g| |000058d0| 6c 6f 62 61 6c 20 53 74 | 6f 70 57 61 74 63 68 54 |lobal St|opWatchT| |000058e0| 69 63 6b 73 41 74 53 74 | 61 72 74 2c 20 53 74 6f |icksAtSt|art, Sto| |000058f0| 70 57 61 74 63 68 54 69 | 63 6b 73 41 74 4c 61 73 |pWatchTi|cksAtLas| |00005900| 74 53 70 6c 69 74 0d 0d | 0d 70 75 74 20 20 20 20 |tSplit..|.put | |00005910| 20 20 74 68 65 20 74 69 | 63 6b 73 20 20 20 20 20 | the ti|cks | |00005920| 20 20 20 69 6e 74 6f 20 | 53 74 6f 70 57 61 74 63 | into |StopWatc| |00005930| 68 54 69 63 6b 73 41 74 | 53 74 61 72 74 0d 0d 70 |hTicksAt|Start..p| |00005940| 75 74 20 53 74 6f 70 57 | 61 74 63 68 54 69 63 6b |ut StopW|atchTick| |00005950| 73 41 74 53 74 61 72 74 | 20 69 6e 74 6f 20 53 74 |sAtStart| into St| |00005960| 6f 70 57 61 74 63 68 54 | 69 63 6b 73 41 74 4c 61 |opWatchT|icksAtLa| |00005970| 73 74 53 70 6c 69 74 0d | 0d 0d 65 6e 64 20 53 74 |stSplit.|..end St| |00005980| 6f 70 57 61 74 63 68 53 | 74 61 72 74 54 69 6d 69 |opWatchS|tartTimi| |00005990| 6e 67 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d |ng | --| |000059a0| 2d 2d 20 43 6f 70 79 72 | 69 67 68 74 ca a9 20 31 |-- Copyr|ight.. 1| |000059b0| 39 38 39 2c 20 62 79 20 | 4a 6f 65 20 52 75 73 68 |989, by |Joe Rush| |000059c0| 0d 2d 2d 2d 20 31 2d 2d | 2d 2d 2d 2d 2d 31 30 2d |.--- 1--|-----10-| |000059d0| 2d 2d 2d 2d 2d 2d 2d 32 | 30 2d 2d 2d 2d 2d 2d 2d |-------2|0-------| |000059e0| 2d 2d 33 31 20 2d 2d 2d | 2d 0d 66 75 6e 63 74 69 |--31 ---|-.functi| |000059f0| 6f 6e 20 53 74 6f 70 57 | 61 74 63 68 45 6c 61 70 |on StopW|atchElap| |00005a00| 73 65 64 54 69 6d 65 20 | 54 69 6d 65 55 6e 69 74 |sedTime |TimeUnit| |00005a10| 73 46 6f 72 4f 75 74 70 | 75 74 0d 67 6c 6f 62 61 |sForOutp|ut.globa| |00005a20| 6c 20 53 74 6f 70 57 61 | 74 63 68 54 69 63 6b 73 |l StopWa|tchTicks| |00005a30| 41 74 53 74 61 72 74 0d | 0d 69 66 20 20 20 20 20 |AtStart.|.if | |00005a40| 20 20 20 54 69 6d 65 55 | 6e 69 74 73 46 6f 72 4f | TimeU|nitsForO| |00005a50| 75 74 70 75 74 20 20 63 | 6f 6e 74 61 69 6e 73 20 |utput c|ontains | |00005a60| 20 22 6d 69 6e 75 74 65 | 73 22 20 74 68 65 6e 0d | "minute|s" then.| |00005a70| 70 75 74 20 20 20 20 20 | 20 20 33 36 30 30 20 69 |put | 3600 i| |00005a80| 6e 74 6f 20 53 63 61 6c | 69 6e 67 46 61 63 74 6f |nto Scal|ingFacto| |00005a90| 72 0d 70 75 74 20 20 22 | 6d 69 6e 75 74 65 73 22 |r.put "|minutes"| |00005aa0| 20 69 6e 74 6f 20 54 69 | 6d 65 55 6e 69 74 73 0d | into Ti|meUnits.| |00005ab0| 65 6c 73 65 20 69 66 20 | 20 20 54 69 6d 65 55 6e |else if | TimeUn| |00005ac0| 69 74 73 46 6f 72 4f 75 | 74 70 75 74 20 20 63 6f |itsForOu|tput co| |00005ad0| 6e 74 61 69 6e 73 20 20 | 22 74 69 63 6b 22 20 20 |ntains |"tick" | |00005ae0| 74 68 65 6e 0d 70 75 74 | 20 20 20 20 20 20 20 20 |then.put| | |00005af0| 20 20 31 20 69 6e 74 6f | 20 53 63 61 6c 69 6e 67 | 1 into| Scaling| |00005b00| 46 61 63 74 6f 72 0d 70 | 75 74 20 20 20 20 22 74 |Factor.p|ut "t| |00005b10| 69 63 6b 73 22 20 69 6e | 74 6f 20 54 69 6d 65 55 |icks" in|to TimeU| |00005b20| 6e 69 74 73 0d 65 6c 73 | 65 0d 70 75 74 20 20 20 |nits.els|e.put | |00005b30| 20 20 20 20 20 20 36 30 | 20 69 6e 74 6f 20 53 63 | 60| into Sc| |00005b40| 61 6c 69 6e 67 46 61 63 | 74 6f 72 0d 70 75 74 20 |alingFac|tor.put | |00005b50| 20 22 73 65 63 6f 6e 64 | 73 22 20 69 6e 74 6f 20 | "second|s" into | |00005b60| 54 69 6d 65 55 6e 69 74 | 73 0d 65 6e 64 20 69 66 |TimeUnit|s.end if| |00005b70| 0d 0d 72 65 74 75 72 6e | 20 28 74 68 65 20 74 69 |..return| (the ti| |00005b80| 63 6b 73 2d 53 74 6f 70 | 57 61 74 63 68 54 69 63 |cks-Stop|WatchTic| |00005b90| 6b 73 41 74 53 74 61 72 | 74 29 2f 53 63 61 6c 69 |ksAtStar|t)/Scali| |00005ba0| 6e 67 46 61 63 74 6f 72 | 20 26 26 20 54 69 6d 65 |ngFactor| && Time| |00005bb0| 55 6e 69 74 73 0d 0d 65 | 6e 64 20 53 74 6f 70 57 |Units..e|nd StopW| |00005bc0| 61 74 63 68 45 6c 61 70 | 73 65 64 54 69 6d 65 20 |atchElap|sedTime | |00005bd0| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 20 | | ---- | |00005be0| 43 6f 70 79 72 69 67 68 | 74 ca a9 20 31 39 38 39 |Copyrigh|t.. 1989| |00005bf0| 2c 20 62 79 20 4a 6f 65 | 20 52 75 73 68 0d 2d 2d |, by Joe| Rush.--| |00005c00| 2d 20 31 2d 2d 2d 2d 2d | 2d 2d 31 30 2d 2d 2d 2d |- 1-----|--10----| |00005c10| 2d 2d 2d 2d 32 30 2d 2d | 2d 2d 2d 2d 2d 2d 2d 33 |----20--|-------3| |00005c20| 31 20 2d 2d 2d 2d 20 70 | 61 73 73 20 2d 2d 2d 2d |1 ---- p|ass ----| |00005c30| 0d 66 75 6e 63 74 69 6f | 6e 20 53 74 6f 70 57 61 |.functio|n StopWa| |00005c40| 74 63 68 53 70 6c 69 74 | 54 69 6d 65 20 54 69 6d |tchSplit|Time Tim| |00005c50| 65 55 6e 69 74 73 46 6f | 72 4f 75 74 70 75 74 0d |eUnitsFo|rOutput.| |00005c60| 67 6c 6f 62 61 6c 20 53 | 74 6f 70 57 61 74 63 68 |global S|topWatch| |00005c70| 54 69 63 6b 73 41 74 4c | 61 73 74 53 70 6c 69 74 |TicksAtL|astSplit| |00005c80| 0d 69 66 20 20 20 20 20 | 20 20 20 54 69 6d 65 55 |.if | TimeU| |00005c90| 6e 69 74 73 46 6f 72 4f | 75 74 70 75 74 20 20 63 |nitsForO|utput c| |00005ca0| 6f 6e 74 61 69 6e 73 20 | 20 22 6d 69 6e 75 74 65 |ontains | "minute| |00005cb0| 73 22 20 74 68 65 6e 0d | 70 75 74 20 20 20 20 20 |s" then.|put | |00005cc0| 20 20 33 36 30 30 20 69 | 6e 74 6f 20 53 63 61 6c | 3600 i|nto Scal| |00005cd0| 69 6e 67 46 61 63 74 6f | 72 0d 70 75 74 20 20 22 |ingFacto|r.put "| |00005ce0| 6d 69 6e 75 74 65 73 22 | 20 69 6e 74 6f 20 54 69 |minutes"| into Ti| |00005cf0| 6d 65 55 6e 69 74 73 0d | 65 6c 73 65 20 69 66 20 |meUnits.|else if | |00005d00| 20 20 54 69 6d 65 55 6e | 69 74 73 46 6f 72 4f 75 | TimeUn|itsForOu| |00005d10| 74 70 75 74 20 20 63 6f | 6e 74 61 69 6e 73 20 20 |tput co|ntains | |00005d20| 22 74 69 63 6b 22 20 20 | 74 68 65 6e 0d 70 75 74 |"tick" |then.put| |00005d30| 20 20 20 20 20 20 20 20 | 20 20 31 20 69 6e 74 6f | | 1 into| |00005d40| 20 53 63 61 6c 69 6e 67 | 46 61 63 74 6f 72 0d 70 | Scaling|Factor.p| |00005d50| 75 74 20 20 20 20 22 74 | 69 63 6b 73 22 20 69 6e |ut "t|icks" in| |00005d60| 74 6f 20 54 69 6d 65 55 | 6e 69 74 73 0d 65 6c 73 |to TimeU|nits.els| |00005d70| 65 0d 70 75 74 20 20 20 | 20 20 20 20 20 20 36 30 |e.put | 60| |00005d80| 20 69 6e 74 6f 20 53 63 | 61 6c 69 6e 67 46 61 63 | into Sc|alingFac| |00005d90| 74 6f 72 0d 70 75 74 20 | 20 22 73 65 63 6f 6e 64 |tor.put | "second| |00005da0| 73 22 20 69 6e 74 6f 20 | 54 69 6d 65 55 6e 69 74 |s" into |TimeUnit| |00005db0| 73 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 28 74 68 |s.end if|.put (th| |00005dc0| 65 20 74 69 63 6b 73 2d | 53 74 6f 70 57 61 74 63 |e ticks-|StopWatc| |00005dd0| 68 54 69 63 6b 73 41 74 | 4c 61 73 74 53 70 6c 69 |hTicksAt|LastSpli| |00005de0| 74 29 2f 53 63 61 6c 69 | 6e 67 46 61 63 74 6f 72 |t)/Scali|ngFactor| |00005df0| 20 c2 0d 69 6e 74 6f 20 | 54 69 6d 65 41 74 53 70 | ..into |TimeAtSp| |00005e00| 6c 69 74 0d 70 75 74 20 | 74 68 65 20 74 69 63 6b |lit.put |the tick| |00005e10| 73 20 69 6e 74 6f 20 53 | 74 6f 70 57 61 74 63 68 |s into S|topWatch| |00005e20| 54 69 63 6b 73 41 74 4c | 61 73 74 53 70 6c 69 74 |TicksAtL|astSplit| |00005e30| 0d 72 65 74 75 72 6e 20 | 54 69 6d 65 41 74 53 70 |.return |TimeAtSp| |00005e40| 6c 69 74 20 26 26 20 54 | 69 6d 65 55 6e 69 74 73 |lit && T|imeUnits| |00005e50| 0d 65 6e 64 20 53 74 6f | 70 57 61 74 63 68 53 70 |.end Sto|pWatchSp| |00005e60| 6c 69 74 54 69 6d 65 20 | 20 20 20 20 20 20 20 20 |litTime | | |00005e70| 20 20 20 20 20 2d 2d 2d | 2d 20 43 6f 70 79 72 69 | ---|- Copyri| |00005e80| 67 68 74 ca a9 20 31 39 | 38 39 2c 20 62 79 20 4a |ght.. 19|89, by J| |00005e90| 6f 65 20 52 75 73 68 0d | 2d 2d 2d 20 31 2d 2d 2d |oe Rush.|--- 1---| |00005ea0| 2d 2d 2d 2d 31 30 2d 2d | 2d 2d 2d 2d 2d 2d 32 30 |----10--|------20| |00005eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 33 31 20 2d 2d 2d 2d |--------|-31 ----| |00005ec0| 0d 6f 6e 20 63 6c 6f 73 | 65 53 74 61 63 6b 0d 67 |.on clos|eStack.g| |00005ed0| 6c 6f 62 61 6c 20 4c 69 | 73 74 4f 66 53 74 61 63 |lobal Li|stOfStac| |00005ee0| 6b 73 54 6f 43 6f 6d 70 | 61 63 74 2c 20 43 6f 6d |ksToComp|act, Com| |00005ef0| 6d 61 6e 64 73 54 6f 44 | 6f 4f 6e 49 64 6c 65 0d |mandsToD|oOnIdle.| |00005f00| 0d 69 66 20 20 20 20 20 | 20 43 6f 6d 6d 61 6e 64 |.if | Command| |00005f10| 73 54 6f 44 6f 4f 6e 49 | 64 6c 65 20 20 20 20 20 |sToDoOnI|dle | |00005f20| 20 20 20 20 20 20 69 73 | 20 20 20 20 20 20 65 6d | is| em| |00005f30| 70 74 79 20 c2 0d 61 6e | 64 20 20 74 68 65 20 6c |pty ..an|d the l| |00005f40| 6f 6e 67 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |ong name| of this| |00005f50| 20 73 74 61 63 6b 20 20 | 69 73 20 6e 6f 74 20 69 | stack |is not i| |00005f60| 6e 20 20 4c 69 73 74 4f | 66 53 74 61 63 6b 73 54 |n ListO|fStacksT| |00005f70| 6f 43 6f 6d 70 61 63 74 | 0d 74 68 65 6e 20 20 20 |oCompact|.then | |00005f80| 20 20 20 20 20 20 43 6f | 6e 73 69 64 65 72 43 6f | Co|nsiderCo| |00005f90| 6d 70 61 63 74 69 6e 67 | 54 68 65 53 74 61 63 6b |mpacting|TheStack| |00005fa0| 0d 0d 70 61 73 73 20 63 | 6c 6f 73 65 53 74 61 63 |..pass c|loseStac| |00005fb0| 6b 0d 65 6e 64 20 63 6c | 6f 73 65 53 74 61 63 6b |k.end cl|oseStack| |00005fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00005fd0| 20 20 20 20 20 20 2d 2d | 2d 2d 20 43 6f 70 79 72 | --|-- Copyr| |00005fe0| 69 67 68 74 ca a9 20 31 | 39 38 39 2c 20 62 79 20 |ight.. 1|989, by | |00005ff0| 4a 6f 65 20 52 75 73 68 | 0d 2d 2d 2d 20 31 2d 2d |Joe Rush|.--- 1--| |00006000| 2d 2d 2d 2d 2d 31 30 2d | 2d 2d 2d 2d 2d 2d 2d 32 |-----10-|-------2| |00006010| 30 2d 2d 2d 2d 2d 2d 2d | 2d 2d 33 31 20 2d 2d 2d |0-------|--31 ---| |00006020| 2d 20 70 61 73 73 20 3f | 20 2d 2d 2d 2d 0d 6f 6e |- pass ?| ----.on| |00006030| 20 43 6f 6e 73 69 64 65 | 72 43 6f 6d 70 61 63 74 | Conside|rCompact| |00006040| 69 6e 67 54 68 65 53 74 | 61 63 6b 0d 67 6c 6f 62 |ingTheSt|ack.glob| |00006050| 61 6c 20 4c 69 73 74 4f | 66 53 74 61 63 6b 73 54 |al ListO|fStacksT| |00006060| 6f 43 6f 6d 70 61 63 74 | 0d 0d 69 66 20 20 20 74 |oCompact|..if t| |00006070| 68 65 20 66 72 65 65 53 | 69 7a 65 20 6f 66 20 74 |he freeS|ize of t| |00006080| 68 69 73 20 73 74 61 63 | 6b 20 3e 20 31 30 30 30 |his stac|k > 1000| |00006090| 30 20 20 20 74 68 65 6e | 0d 73 68 6f 77 20 74 68 |0 then|.show th| |000060a0| 65 20 6d 65 73 73 61 67 | 65 20 62 6f 78 20 61 74 |e messag|e box at| |000060b0| 20 32 30 2c 32 36 30 0d | 70 75 74 20 22 20 66 72 | 20,260.|put " fr| |000060c0| 65 65 53 70 61 63 65 20 | 3d 22 20 26 26 20 74 68 |eeSpace |=" && th| |000060d0| 65 20 66 72 65 65 53 69 | 7a 65 20 6f 66 20 74 68 |e freeSi|ze of th| |000060e0| 69 73 20 73 74 61 63 6b | 20 64 69 76 20 31 30 32 |is stack| div 102| |000060f0| 34 20 26 26 20 22 4b 22 | 20 c2 0d 26 26 20 20 20 |4 && "K"| ..&& | |00006100| 20 20 20 20 20 20 20 20 | 20 20 22 2f 22 20 26 26 | | "/" &&| |00006110| 20 74 68 65 20 20 20 20 | 20 73 69 7a 65 20 6f 66 | the | size of| |00006120| 20 74 68 69 73 20 73 74 | 61 63 6b 20 64 69 76 20 | this st|ack div | |00006130| 31 30 32 34 20 26 26 20 | 22 4b 22 20 c2 0d 26 26 |1024 && |"K" ..&&| |00006140| 20 22 69 6e 22 20 26 26 | 20 74 68 65 20 73 68 6f | "in" &&| the sho| |00006150| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this | |00006160| 73 74 61 63 6b 0d 0d 73 | 65 6e 64 20 22 61 6e 73 |stack..s|end "ans| |00006170| 77 65 72 22 20 26 26 20 | 4b 77 6f 74 65 28 22 44 |wer" && |Kwote("D| |00006180| 6f 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 63 6f |o you wa|nt to co| |00006190| 6d 70 61 63 74 20 74 68 | 65 20 73 74 61 63 6b 20 |mpact th|e stack | |000061a0| 3f 22 29 20 c2 0d 26 26 | 20 22 77 69 74 68 20 4e |?") ..&&| "with N| |000061b0| 6f 20 6f 72 22 20 26 26 | 20 4b 77 6f 74 65 28 22 |o or" &&| Kwote("| |000061c0| 59 65 73 2c 20 4e 6f 77 | 22 29 20 c2 0d 26 26 20 |Yes, Now|") ..&& | |000061d0| 22 6f 72 22 20 26 26 20 | 4b 77 6f 74 65 28 22 55 |"or" && |Kwote("U| |000061e0| 70 6f 6e 20 51 75 69 74 | 69 6e 67 22 29 20 74 6f |pon Quit|ing") to| |000061f0| 20 68 79 70 65 72 63 61 | 72 64 0d 0d 69 66 20 20 | hyperca|rd..if | |00006200| 20 20 20 20 20 20 20 20 | 69 74 20 69 73 20 22 55 | |it is "U| |00006210| 70 6f 6e 20 51 75 69 74 | 69 6e 67 22 20 20 20 74 |pon Quit|ing" t| |00006220| 68 65 6e 0d 70 75 74 20 | 74 68 65 20 6c 6f 6e 67 |hen.put |the long| |00006230| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st| |00006240| 61 63 6b 20 26 20 72 65 | 74 75 72 6e 20 c2 0d 62 |ack & re|turn ..b| |00006250| 65 66 6f 72 65 20 4c 69 | 73 74 4f 66 53 74 61 63 |efore Li|stOfStac| |00006260| 6b 73 54 6f 43 6f 6d 70 | 61 63 74 0d 0d 65 6c 73 |ksToComp|act..els| |00006270| 65 20 69 66 20 20 20 20 | 20 20 69 74 20 69 73 20 |e if | it is | |00006280| 20 22 59 65 73 2c 20 4e | 6f 77 22 20 20 20 20 20 | "Yes, N|ow" | |00006290| 74 68 65 6e 0d 64 6f 4d | 65 6e 75 20 22 43 6f 6d |then.doM|enu "Com| |000062a0| 70 61 63 74 20 53 74 61 | 63 6b 22 0d 65 6e 64 20 |pact Sta|ck".end | |000062b0| 69 66 0d 0d 68 69 64 65 | 20 74 68 65 20 6d 65 73 |if..hide| the mes| |000062c0| 73 61 67 65 20 62 6f 78 | 0d 65 6e 64 20 69 66 0d |sage box|.end if.| |000062d0| 0d 65 6e 64 20 43 6f 6e | 73 69 64 65 72 43 6f 6d |.end Con|siderCom| |000062e0| 70 61 63 74 69 6e 67 54 | 68 65 53 74 61 63 6b 20 |pactingT|heStack | |000062f0| 20 20 20 20 20 2d 2d 2d | 2d 20 43 6f 70 79 72 69 | ---|- Copyri| |00006300| 67 68 74 ca a9 20 31 39 | 38 39 2c 20 62 79 20 4a |ght.. 19|89, by J| |00006310| 6f 65 20 52 75 73 68 0d | 2d 2d 2d 20 31 2d 2d 2d |oe Rush.|--- 1---| |00006320| 2d 2d 2d 2d 31 30 2d 2d | 2d 2d 2d 2d 2d 2d 32 30 |----10--|------20| |00006330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 33 31 20 2d 2d 2d 2d |--------|-31 ----| |00006340| 0d 6f 6e 20 71 75 69 74 | 0d 0d 44 65 6c 65 74 65 |.on quit|..Delete| |00006350| 4d 65 6e 75 73 41 6e 64 | 43 6f 6d 70 61 63 74 53 |MenusAnd|CompactS| |00006360| 74 61 63 6b 73 0d 65 6e | 64 20 71 75 69 74 20 20 |tacks.en|d quit | |00006370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | | |00006380| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 20 43 | | ---- C| |00006390| 6f 70 79 72 69 67 68 74 | ca a9 20 31 39 38 39 2c |opyright|.. 1989,| |000063a0| 20 62 79 20 4a 6f 65 20 | 52 75 73 68 0d 2d 2d 2d | by Joe |Rush.---| |000063b0| 20 31 2d 2d 2d 2d 2d 2d | 2d 31 30 2d 2d 2d 2d 2d | 1------|-10-----| |000063c0| 2d 2d 2d 32 30 2d 2d 2d | 2d 2d 2d 2d 2d 2d 33 31 |---20---|------31| |000063d0| 20 2d 2d 2d 2d 20 70 61 | 73 73 20 3f 20 2d 2d 2d | ---- pa|ss ? ---| |000063e0| 2d 0d 6f 6e 20 73 75 73 | 70 65 6e 64 0d 0d 44 65 |-.on sus|pend..De| |000063f0| 6c 65 74 65 4d 65 6e 75 | 73 41 6e 64 43 6f 6d 70 |leteMenu|sAndComp| +--------+-------------------------+-------------------------+--------+--------+ Only 25.0 KB of data is shown above.